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3. 3. 6.8  POLYNOMIALS  (PACKAGE  BODY)  TLCSC  P688  (CATALOG  #P722-0) 

This  part  is  a  package  of  packages.  It  contains  specifications  for  all  the 
polynomial  functions  required  by  the  rest  of  the  CAMP  parts.  Each  subpackage, 
except  General_Polynomial,  contains  function(s)  for  one  type  of  polynomial 
(i.e.  Hastings,  Taylor  series,  etc.).  These  parts  provide  standard 
mathematical  functions  such  as  trigonometric  and  square  root  functions. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8.1  REQUIREMENTS  ALLOCATION 


|  Name  | 

Type 

Requirements  Allocation  | 

|  Chebyshev  ! 

package 

R214 

|  Continued  Fractions! 

package 

I  Fike  ! 

package 

R215 

|  Hart  | 

package 

R216 

|  Hastings  i 

package 

R217 

|  Modified  i 

package 

R220 

j  Newton  Raphson  j 

|  Newton  Raphson  j 

package 

R221 

j  Taylor  Series  !■ 

package 

R222 

|  General  Polynomial  | 

package 

partially  meets  CAMP 

requirements  R214  thru 

1  1 

R222 

|  System_Functions  ( 

package 

R223 

3. 3. 6. 8. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 8. 3  INPUT/OUTPUT 
None. 

3. 3. 6. 8. 4  LOCAL  DATA 
None. 

3. 3. 6. 8. 5  PROCESS  CONTROL 


Not  applicable. 


CAMP  Software  Detailed  Design  Document 

3. 3. 6. 8. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part 

with  Math_Lib; 

package  body  Polynomials  is 

package  body  Chebyshev  is  separate; 

package  body  Cody_Vaite  is  separate; 

package  body  Continued_Fractions  is  separate; 

package  body  Fike  is  separate; 

package  body  General_Polynomial  is  separate; 

package  body  Hart  is  separate; 

package  body  Hastings  is  separate; 

package  body  Modified_Newton_Raphson  is  separate; 

package  body  NewtonJRaphson  is  separate; 

package  body  System_Functions  is  separate; 

package  body  TaylorSeries  is  separate; 

package  body  Reduction_Operations  is  separate; 

end  Polynomials; 

3. 3. 6. 8. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 8  LIMITATIONS 
None. 


3. 3. 6. 8. 9  LLCSC  DESIGN 
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3. 3. 6. 8. 9.1  CHEBYSHEV  PACKAGE  DESIGN  (CATALOG  #P723-0) 

This  package  contains  a  generic  packages  providing  polynomial  solutions  to  the 
sine  function  with  inputs  of  Radians,  Degrees,  or  Semicircles. 

The  decomposition  for  this  part  is  the  sarae  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R214. 


3. 3. 6. 8. 9. 1.2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 1.3  INPUT/OUTPUT 


None. 

3. 3. 6. 8. 9. 1.4  LOCAL  DATA 


None. 


3. 3. 6. 8. 9. 1.5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 8. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part:  j 

separate  (Polynomials) 

package  body  Chebyshev  is  ] 

j 

package  body  Chebyshev_Radian_Operations  is  serrate;  j 

package  body  Chebyshev_Degree_Operations  is  separate;  j 

package  body  Chebyshev_Semicircle_Operations  is  separate?  j 

i 

end  Chebyshev;  j 

< 

*  j 

3. 3. 6. 8. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS  j 

} 

■j 

j 

j 

i 
j 

3 
3 
! 

1 

j 
'J 

i 

i.  t  .  l  .  .  ir.rv  m  .  m  w  ■  mX  m  JTt*  lfWlTU  JTW  1TV  ITu  WV  iTU  Wf  VTTli 


None. 
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3. 3. 6. 8. 9. 1.8  LIMITATIONS 


None. 


3. 3. 6. 8. 9. 1.9  LLCSC  DESIGN 

3. 3. 6. 8. 9. 1.9.1  CHEBYSHEV_RADIAN_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P724-0) 

This  generic  package  contains  functions  providing  a  Chebyshev  polynomial 
solution  for  the  sine  function.  Provisions  are  made  for  the  function  to  handle 
units  of  radians.  Outputs  are  of  type  sin_cos_ratio. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Sin  R_5term 

|  P725-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6.8. 9. 1.9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R214. 


3. 3. 6. 8. 9. 1.9. 1.2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 1.9. 1.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

I 

|  Radians 

1 

|  Floating  point 

1 

|  Allows  floating  point  representation  of 
j  radian  measurements. 

1 

I 

j  Real 

i  Floating  point 

j  General  floating  point  representation. 

i 

Sin  Cos  Ratio 

j  Floating  point 

j  Represents  sines  and  cosines. 

1 

|  Tan_Ratio 

j  Floating  point 

j  Represents  tangent  values. 

1 

Data  objects: 


CAMP  Software  Detailed  Design  Document 


Page  1439 


The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Value 

Description  | 

|  One  0ver_Pi 

Radians 

constant 

constant  value  of  inverse  of  Pi  1 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

|  "*« 

1 

|  function  | 

1  1 

Overloaded  operator  to  multiply  radians  *  radians  j 

yielding  a  real  result.  j 

FORMAL  PARAMETERS: 

The  following  table  dejcribes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function  | 

Name 

1  Type  J 

|  Description  | 

|  Sin_R_5term  | 

Input 

|  Radians 

|  Input  of  angle  for  sine  calculation  | 

3. 3. 6. 8. 9. 1.9. 1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  |  Value 


|  Description 


Sin_R_C0 
Sin_R_Cl 
Sin_R_C2 
Sin_R_C3 
Sin_R_C4 
Sin  R  B5 


constant 

constant 

constant 

constant 

constant 

constant 


1.34752  631 
-1 . 5565$  125 
0.22275^7911 
-0.01419  31743 
0.00051  19072_74 
-0.00001-18935  046 


Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 


3. 3. 6. 8. 9. 1.9. 1.5  PROCESS  CONTROL 


Not  applicable. 


* 
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3. 3. 6. 8. 9. 1.9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials. Chebyshev) 

package  body  Chebyshev_Radian_Operations  is 

Sin_R_C0  :  constant  :=  1.34752_631; 

Sin_R_Cl  :  constant  :=  -1.55659_125; 

Sin_R_C2  :  constant  :=  0.22275_7911; 

Sin_R_C3  :  constant  :*  -0.01419J31743; 

Sin_R_C4  :  constant  :=  0.00051_19072_74; 

Sin_R_B5  :  constant  :»  -0.00001~18935_046; 

function  Sin_R_5terra(Input  :  Radians)  return  Sin_Cos_Ratio  is 

:  Real; 

:  Real; 

:  Real; 

:  Real; 

:  Real; 

:  Sin  Cos_Ratio; 

:  Real; 

:  Real; 

begin 

Y  :»  Input  *  0ne_0ver_Pi ;  —  converts  radians  to  semicircles 

Y_Squared  :*  Y  *  Y; 

Inter_Result_0  :*  4.0  *  YSquared  -  2.0; 

Inter_Result_4  :=  Inter_Result_0  *  Sin_R_B5  +  Sin_R_C4; 
Inter_Result_3  :*  Inter_Result  0  *  Intir_Result_4  -  Sin_R_B5  + 
Sin_R“C3; 

Inter_Result_2  :=«  InterJResultO  *  Inter_Result_3  -  Inter  Result  4  + 
Sin_R_C2 ; 

Inter_Result_l  :=  Inter_Result_0  *  Inter  Result_2  -  Inter_Result_3  + 
Sin_R_Cl; 

Inter_Result_0  :=  Inter_Result  0  *  Inter_Result_l  -  Inter_Result_2  + 
Sin_R_C0; 

Inter_Result_0  :*  (Inter_Result_0  -  (2.0  *  Y_Squared  -  1.0)  * 

Inter_Result”l)  *  Y; 
if  Inter_Result_0  >  1.0  then 
Inter_Result_0  :*  1.0; 
elsif  Inter_Result_0  <  -1.0  then 
Inter_Result_0  7=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(Inter_Result_0); 
return  Result! 
end  Sin_R_5term; 

end  Chebyshev_Radian_0perations; 


Inter_Result_4 

Inter_Result_3 

Inter_Result_2 

Inter_Result_l 

Inter_Result_0 

Result 

Y 

Y  squared 


} 


3. 3-6. 8. 9, 1.9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 


--  ......  W-..  m.iA.  WLiUInJl.  LH  >  .  ■  rnr,  .  »-r-. 


None 
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3. 3. 6. 8. 9. 1.9. 1.8  LIMITATIONS 


None. 

3. 3. 6. 8. 9. 1.9. 1.9  LLCSC  DESIGN 
None. 


3.3.6.8.9.1.9.1.10  UNIT  DESIGN 


None. 


3. 3. 6. 8. 9. 1.9. 2  CHEBYSBEV_DEGREE_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P1088-0) 

This  generic  package  contains  functions  providing  a  Chebyshev  polynomial 
solution  for  the  sine  function.  Provisions  are  made  for  the  function  to  handle 
units  of  degrees.  Outputs  are  of  type  sin_cos_ratio. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Sin  D  5term 

|  P727-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 1.9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R214. 

3. 3. 6. 8. 9. 1.9. 2. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 1.9. 2. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


j/v..  i/*—  jl  wv.  rf-v.  vi*  jr-  jr-ijr.ur-  h n k_a  a/i  ila  atv  jut a— ila  aa a/i  aa  jl' 
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j  Name 
|  Degrees 

I 

j  Real 

j  Sin_Cos_Racio 
j  Tan  Ratio 


|  Type  |  Description 

Floating  point 


I 


Floating  point 
Floating  point 
Floating  point 


Allows  floating  point  representation  of  i 
degree  measurements.  j 
General  floating  point  representation.  j 
Represents  sines  and  cosines.  j 
Represents  tangent  values.  j 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Value 

Description  | 

|  0ne_0ver_Pi 

Degrees 

constant 

constant  value  of  inverse  of  Pi  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

| 

1 

|  function  | 

1  1 

Overloaded  operator  to  multiply  degrees  *  degrees  j 

yielding  a  real  result.  \ 

FORMAL  PARAMETERS: 

The  following  table  describes  the. formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

Name 

Type 

Description  | 

|  Sin_D_5term 

Input 

Degrees 

Input  of  angle  for  sine  calculation  | 

3. 3. 6. 8. 9. 1.9. 2. 4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


HA  'IMLIII.'I  HA  HA  HA  HA  hA.'hA ' hA  HA  HJTHA.  HA  HA  HA i*A  HA  kA  *A  HA.  HA  hA  hA  hA HA  hA  HA  HA  hA  mA  hA  hA  «r  VJCIOT K.HVX jnAVKV'fyAVX'HJfiQ 
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•W 


|  Name  |  Type  |  Value 


Description 


Sin_D_C0 
Sin  D_C1 
Sin“D_C2 
Sin_D_C3 
Sin_D_C4 
Sin_D_B5 
One  Over  180 


constant 

constant 

constant 

constant 

constant 

constant 

constant 


1.34752  631 
-1.55659_125 
0.22275_7911 
-0.01419  31743 
0.00051_19072_74 
-0.00001  18935  046 
0.00555  55555  5 


Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Conversion  constant 


3. 3. 6. 8. 9. 1.9. 2. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 1.9. 2. 6  PROCESSING 


The  following  describes  the  processing  performed  by  this  parts 


separate  ( Polynomials. Chebyshev) 

package  body  Chebyshev_Degree_Operations  is 


Sin_D_C0 
SinDCl 
Sin_D_C2 
Sin_D  C3 
Sin_D"C4 
Sin  D  B5 


constant 

constant 

constant 

constant 

constant 

constant 


1.34752  631} 

—1 . 55659” 125 ; 
0.22275~7911; 
-0.01419"31743; 
0.00051  19072  74; 
-0.0000ri8935"046; 


One  Over  180 


constant 


0.00555555555; 


function  Sin_D_5term(Input  ;  Degrees)  return  Sin_Cos_Ratio  is 


Inter_Result_4 

Inter_Result_3 

Inter_Result_2 

Inter_Result_l 

Inter_Result_0 

Result 

Y 

Y  squared 


Real; 

Real; 

Real; 

Real; 

Real; 

Sin  Cos_Ratio; 
Real; 

Real; 


begin 

Y  ;*  Input  * 
Y_Squared 
Inter_Result_ 
Inter_Result[ 
Inter  Result' 


180; 


InterJResult 
Inter_Result 
Inter  Result 


One  Over 
Y  *“Y; 

4.0  *  Y_Squared 
Inter_Result_0 
Inter_Result_0 
Sin_D_C3; 
Inter_Result_0 
Sin_D_C2; 
Inter~Result  0 
Sin_D_d ; 

Inter  Result  0 


—  converts  degrees  to  semicircles 


-  2.0* 

Sin_D_B5  +  Sin_D_C4; 

Inter  Result  4  -  Sin  D  B5 


Inter_Result_3  -  Inter_Result_4 
Inter_Result_2  -  Inter_Result_3 
Inter  Result  1  -  Inter  Result  2 
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+  Sin_D_C0; 

Inter_Result_0  :=  (Inter_Result_0  -  (2.0  *  Y_Squared  -  1.0)  * 

Inter_Result_l)  *  Y; 
if  Inter_Result_0  >  1.0  then 
Inter_Result_0  :=  1.0; 
elsif  Inter_Result_0  <  -1.0  then 
Inter_Result_0  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(Inter_Result_0); 
return  Result; 
end  Sin_D_5term; 

end  Chebyshev_Degree_Operations; 


3. 3. 6. 8. 9. 1.9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 1.9. 2. 8  LIMITATIONS 
None. 


3. 3. 6. 8, 9. 1.9. 2. 9  LLCSC  DESIGN 


None. 


3.3.6.8.9.1.9.2.10  UNIT  DESIGN 


None. 


3. 3. 6. 8. 9. 1.9. 3  CHEBYSHEV_SEMICIRCLE_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P728-0) 

This  generic  package  contains  functions  providing  a  Chebyshev  polynomial 
solution  for  the  sine  function.  Provisions  are  made  for  the  function  to  handle 
units  of  semicircles.  Outputs  are  of  type  sin_cos_ratio. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part; 


|  Name 

|  Catalog  _#  | 

] 

|  Sin_S_5term 

|  P729-0  | 

i 

\ 

i 

The  decomposition  for 

this  part  is  the  same  as  that  shown  in  the  Top-Level 

i 

l 

| 

Design  Document. 


1 


J 


i 
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3. 3. 6. 8. 9. 1.9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R214. 


3. 3. 6. 8. 9. 1.9. 3. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 1.9. 3. 3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1 

Type 

Description  | 

|  Semicircles 
| 

1 

1 

Floating  point 

Allows  floating  point  representation  of 
semicircle  measurements. 

j  Real 

Floating  point 

General  floating  point  representation. 

Sin  Cos  Ratio 

1 

Floating  point 

Represents  sines  and  cosines.  ) 

j  Tan_Ratio 

1 

Floating  point 

Represents  tangent  values.  j 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Value 

Description  | 

|  0ne_0ver_Pi 

Semicircles 

constant 

constant  value  of  inverse  of  Pi  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  |  Type  | 

Description 

1 

|  |  function  | 

1  1  1 

Overloaded  operator  to  multiply  semicircles  * 
semicircles  yielding  a  real  result. 

1 

1 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


k.’MiM  .'Mni  rv*  pyx  rv  ■  n*  nx  rut n_x  'V*  r\_/t  Tvjrr\j» rvx f\x nx  Ai  » 


VK/KliIVld 
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|  Function 

Name 

Type 

Description  | 

|  Sin  S  5terra 

Input 

Semicircles 

Input  of  angle  for  sine  calculation  | 

3. 3. 6. 8. 9. 1.9. 3. 4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  |  Value 


Description 


Sin_S_C0 
Sin_S_Cl 
Sin_S_C2 
Sin_S_C3 
Sin_S_C4 
Sin  S  B5 


constant 

constant 

constant 

constant 

constant 

constant 


1.34752  631 
-1.55659_125 
0.22275_7911 
-0.01419  31743 
0 . 00051_19072_74 
-0.00001  18935  046 


Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 
Coefficient  for  calculation 


1 


3. 3. 6. 8. 9. 1.9. 3. 5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 8. 9. 1.9. 3. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 


separate  ( Polynomials. Chebyshev) 

package  body  Chebyshev_Semicircle_Operations  is 


Sin_S_C0  :  constant 
Sin_S_Cl  :  constant 
Sin_S_C2  :  constant 
Sin_S_C3  :  constant 
Sin_S_C4  :  constant 
Sin  S  B5  :  constant 


1.34752  631; 

— 1 . 55659~ 125 ; 
0.22275  7911? 
-0.01419  31743; 
0.00051_19072  74; 
-0.00001  18935“046; 


function  Sin_S  5term(Input  :  Semicircles)  return  Sin_Cos_Ratio  is 


Inter_Result_4 

Inter_Result_3 

Inter_Result_2 

Inter_Result_l 

Inter_Result_0 

Result 

Y  squared 


Real; 

Real; 

Real; 

Real; 

Real; 

Sin  Cos  Ratio 
Real; 


begin 

Y_Squared  :=  Input  *  Input; 

Inter  Result  0  :=  4.0  *  Y  Squared  - 


2.0; 


uniMt'imwv  wit uvunwn  hi  irt  rr  i  rwiMM  i  rrr  •  nr ifTTirn im  irn  if** itti  >r*i  nTi  rf*  WT  trff  >fH  M w 71 M 
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Inter_Result_4 

Inter_Result_3 

Inter_Result_2 

Inter  Result  1 


Inter_Result_0  *  Sin_S_B5  +  Sin_S_C4; 
Inter_Result_0  *  Inter_Result_4  -  Sin_S_B5  + 
Sin_S_C3; 

Inter_Result_0  *  Inter_Result  3  -  Inter_Result  4  + 
Sin_S_C2;  “  '  ' 

Inter  Result  0  *  Inter  Result  2  -  Inter  Result  3  + 


Sin_S_Cl; 

Inter_Result_0  :=  Inter_Result_0  *  Inter_Result  1  -  Inter  Result  2  + 
Sin_S_C0; 

Inter_Result_0  :*  (Inter_Result  0  -  (2.0  *  Y_Squared  -  1.0)  * 
Inter_Result_I)  *  Real(Input); 
if  Inter_Result_0  >  1.0~then 
Inter_Result_0  :*  1.0} 
elsif  Infer_Result_0  <  -1.0  then 
Inter_Result_0  :*  -1.0} 
end  if; 

Result  :■  Sin_Cos_Ratio(Inter_Result_0) ; 
return  Result; 
end  Sin_S  5term; 


end  Chebyshev_Semicircle_Operations ; 


3. 3. 6. 8. 9. 1.9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 1.9. 3. 8  LIMITATIONS 


None. 


3. 3. 6. 8. 9. 1.9. 3. 9  LLCSC  DESIGN 


None, 

3.3.6.8.9.1.9.3.10  UNIT  DESIGN 
None. 

3.3.6.8.9.1.10  UNIT  DESIGN 
None. 


i 

i 

I 

i 


J 
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3. 3. 6. 8. 9. 2  FIKE  PACKAGE  DESIGN  (CATALOG  #P734-0) 

This  package  contains  a  generic  package  providing  a  Fike  polynomial  solution 
for  the  arcsine  function. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R215. 


3. 3. 6. 8. 9. 2. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 2. 3  INPUT/OUTPUT 
None. 


3. 3. 6. 8. 9. 2. 4  LOCAL  DATA 
None. 


3. 3. 6. 8. 9. 2. 5  PROCESS  CONTROL  .  ] 

Not  applicable. 

3. 3. 6. 8. 9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part:  I 

s 

separate  (Polynomials)  I 

package  body  Fike  is  j 

package  body  Fike_Semicircle_Operations  is  separate;  I 

end  Fike; 

3. 3. 6. 8. 9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS  ] 

i 

i 

J 

None.  3 

•  j 

3. 3. 6. 8. 9. 2. 8  LIMITATIONS  3 

None. 


j 

I 


i  A*  .JV  l/V  iJV  iTU  LTHf  *n 
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3. 3. 6. 8. 9. 2. 9  LLCSC  DESIGN 

3. 3. 6. 8. 9. 2. 9.1  FIKE_SEMICIRCLE_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P735-0) 

This  generic  package  contains  a  function  providing  a  Fike  polynomial  solution 
for  the  arcsine  function.  This  package  is  designed  to  handle  units  of 
semicircles. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Arcsin  S  6 term 

|  P736-0  | 

j  Arccos  S  6 terra 

|  P737-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 8. 9. 2. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R215. 

3. 3. 6. 8. 9. 2. 9. 1.2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 8. 9. 2. 9. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

1  Type 

|  Description  | 

|  Semicircles 

i  ; 

j  Real 

|  Sin_Cos_Ratio 

|  Floating  point 

|  Floating  point 
j  Floating  point 

|  Allows  floating  point  representation  of  j 
j  semicircle  measurements.  j 
|  General  floating  point  representation.  j 
|  Represents  sines  and  cosines.  j 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


! 


I 


J 


i 


< 


\ 
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|  Name  | 

Type 

Description  j 

1  Sqrt  | 

funtion 

returns  the  square  root  of  type  real  | 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

Name 

Type  | 

Description  | 

|  Arcsin_S  6 term 

Input 

Sin_Cos_Ratio  | 

Input  for  arcsine  computation  | 

3. 3. 6. 8. 9. 2. 9. 1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Value 


|  Description 


Arcsin_Cl 
Arcsin_C3 
Arcsin_C5 
Arcsin_C7 
Arcsin_C9 
Arcsin  Cll 


constant 

constant 

constant 

constant 

constant 

constant 


0.31830 

0.05305' 

0.02385' 

0.01448* 

0.00763" 

0.01350' 


99886 

20148 

63606 

96675 

75322  8 

18593“ 


Coefficient  for  term  1 
Coefficient  for  term  3 
Coefficient  for  term  5 
Coefficient  for  term  7 
Coefficient  for  term  9 
Coefficient  for  term  11 


3. 3. 6. 8. 9. 2. 9. 1.5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 2. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials. Pike) 

package  body  Fike_Semicircle_Operations  is 

Arcsin_Cl  :  constant  :=  0.31830  9886; 

Arcsin_C3  :  constant  :=  0.05305”20148; 

Arcsin_C5  :  constant  :=  0.02335“63606; 

Arcsin_C7  :  constant  :=  0.01448_96675; 

Arcsin_C9  :  constant  :=  0.00763_75322_8; 

Arcsin_Cll  :  constant  :=  0.01350_18593j 

function  Arcsin_S_6term  (Input  :  Sin  Cos  Ratio)  return  Semicircles  is 
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Input_Squared  : 
Inter_Result  : 
Left_Quadrant  : 
Mod_Input  : 
Result  : 


Real; 

Real; 

Boolean; 

Real; 

Semicircles; 


begin 

if  Abs(  Input  )  >  0.5  then 

Mod_Input  :=  Sqrt(  Real((1.0  -  Abs(Input))  *  0.5)  ); 
Left_Quadrant  ;*  True; 
else 

Mod_Input  :*  Real(Input); 

Lef t_Quadrant  :=*  False; 
end  if; 

Input_Squared  :*  Mod  Input  *  Hod_Input; 

Inter_Result  :=*  (<<(TArcsin_Cll  *  Input_Squared  + 
Arcsin_C9)  *  Input_Squared  + 

Arcsin_C7)  *  Input  Squared  + 

Arcsin_C5)  *  Input™Squared  + 

Arcsin_C3)  *  Input_Squared  + 

Arcsin_Cl)  *  Mod_Input; 
if  Left_Quadrant  then 
if  Input  >  0.0  then 

Inter_Result  :*  0.5  -  (2.0  *  Inter_Result); 
else 

Inter  Result  :«  -  (0.5  -  (2.0  *  Inter_Result)); 
end  if; 
end  if; 

Result  Semicircles(Inter_Result); 
return  Result; 
end  Arcs in_S_6 term; 


function  Arccos_S_6term  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 


Input_Squared 

Inter_Result 

Left_Quadrant 

Mod_Input 

Result 


Real; 

Real; 

Boolean; 

Real; 

Semicircles; 


begin 

if  Abs(  Input  )  >  0.5  then 

Mod_Input  :»  Sqrt(  Real((1.0  -  Abs(Input))  *  0.5) 
Left_Quadrant  :=  True; 
else 

Mod_Input  :=  Real (Input); 

LefI_Quadrant  :=  False; 
end  if; 

:=  Mod_Input  *  Mod_Input; 

=  (((((Arcsin_Cll  *  Input_Squared  + 
Arcsin_C9)  *  Input_Squared  + 
Arcsin_C7) 

Arcsin_C5) 

Arcsin~C3) 

Arcsin_Cl) 

if  Left_Quadrant  then 
if  Input  >  0.0  then 


>? 


Input_Squared 
Inter  Result  i 


Input~Squared 

Input_Squared 

Input_Squared 

Mod_Input; 


— n~in~iri~in~ir  nirnrinrinnnrirrnrmfmirriimi  TnmirrnnniifmfTni 
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Inter_Result  :=  0.5  -  0  *  Inter_Result) ; 

else 

Inter_Result  :=  -  (0.5  -  (2.0  *  Inter_Result)); 
end  if; 
end  if; 

Result  :=  Semicircles(Inter  Result); 

—  convert  to  Arccos  by  applying  formula 
—  Arccosine  =  Pi/2  -  Arcsine 
Result  :=  0.5  -  Result; 
return  Result; 
end  Arccos_S_6term; 

end  Fike_Semicircle  Operations; 


3. 3. 6. 8. 9. 2. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 2. 9. 1.8  LIMITATIONS 


None. 


3. 3. 6. 8. 9. 2. 9. 1.9  LLCSC  DESIGN 


None. 

3.3.6.8.9.2.9.1.10  UNIT  DESIGN 
None. 


3.3.6.8.9.2.10  UNIT  DESIGN 
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3. 3. 6. 8. 9. 3  HART  PACKAGE  DESIGN  (CATALOG  8P740-0) 

This  packages  contains  generic  packages  providing  Hart  a  polynomial  solution 
for  the  cosine  function.  Provisions  are  made  for  the  cosine  function  to  handle 
units  of  radians  or  degrees,  respectively.  Outputs  may  be  of  type  sin_cos_- 
ratio. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R216. 


3. 3. 6. 8. 9. 3. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 3. 3  INPUT/OUTPUT 


None. 


3-3. 6. 8. 9. 3. 4  LOCAL  DATA 
None. 

3. 3. 6. 8. 9. 3. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 8. 9. 3. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 
package  body  Hart  is 

package  body  Hart_Radian_Operations  is  separate; 
package  body  Hart_Degree_Operations  is  separate; 
end  Hart; 


3. 3. 6. 8. 9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3. 3. 6. 8. 9. 3. 8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 3. 9  LLCSC  DESIGN 

3. 3. 6. 8. 9. 3. 9.1  HART_RADIAN_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P741-0) 

This  generic  package  contains  a  function  providing  a  Hart  polynomial  jolution 
for  the  cosine  function.  This  package  is  designed  to  accept  inputs  in  terms  of 
radians. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Cos  R  5 term 

|  P742-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 8. 9. 3. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R216. 

3. 3. 6. 8. 9. 3. 9. 1.2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 8. 9. 3. 9. 1.3  INPUT/OUTPUT 
Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Radians 

I  1 

j  Real  I 

|  Sin_Cos_Ratio  j 

|  Floating  point 

Floating  point 
|  Floating  point 

|  Allows  floating  point  representation  of  | 
j  radian  measurements.  j 
j  General  floating  point  representation.  j 
j  Represents  sines  and  cosines.  j 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

1  Type  | 

Description  | 

|  "*» 

1 

|  function  | 

1  1 

Overloaded  operator  to  multiply  radians  *  radians  j 

yielding  a  real  result.  j 

GENERIC 

PARAMETERS: 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

Name 

V 

0. 

>* 

H 

1 

Description  | 

1 

E 

U 

O 

*-> 

in 

«ji 

OT  1 
0  1 
U  l 

Input 

|  Radians 

Input  angle  for  cosine  function  | 

3. 3. 6. 8. 9. 3. 9. 1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  (■  Value  |  Description 


Cos_R_C0 
Cos_R_C2 
Cos_R_C4 
Cos_R_C6 
Cos  R  C8 


constant 

1 

0 

constant 

1 

-0 

constant 

1 

0 

constant 

1 

-0 

constant 

1 

0 

99999  9953 
49999-9905 
04166"35846 
00138_53704_2 
00002  31539  3 


Coefficient 

Coefficient 

Coefficient 

Coefficient 

Coefficient 


for  term  2 
for  term  4 
for  term  6 
for  term  8 
for  term  10 


3. 3. 6. 8. 9. 3. 9. 1.5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 3. 9. 1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


separate  (Polynomials. Hart) 

package  body  Hart_Radian_0perations  is 


Cos_R_C0 
Cos_R_C2 
Cos_R_C4 
Cos_R_C6 
Cos  R  C8 


:  constant  :=  0. 99999_9953 ; 

:  constant  :=  -0.49999_9053; 

:  constant  :=  0.04166J35847; 

:  constant  :*  -0.00138_53704_3; 

:  constant  :*  0.00002~31539  317; 


function  Cos  R  5term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 


i 


mmSSm 
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Inter_Result  :  Real; 

Mod_Input  :  Radians; 

Result  5  Sin_Cos_Ratio; 

X_Squared  :  Radians ; 

begin 

if  Input  >=  Pi_0ver_2  then 
Mod_Input  :=  Pi  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=*  Mod_Input  *  Mod_Input; 
Inter_Result  :*  I((Cos_R_C8  *  X_Squared  + 

Cos_R_C6)  *  X_Squared  + 
Cos_R~C4)  *  X^Squared  + 
Cos_R_C2)  *  XJBquared; 
Inter_Result  InterJResult  +  Cos_R_C0; 
if  Input  >=  Pi_0ver_2  then 

Inter_Result  :=  -  Inter_Result; 
end  if; 

If  Inter_Result  >  1.0  then 
InterResult  :*  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :«  -1.0; 
end  if; 

Result  :*  Sin_Cos_Ratio(  Inter  Result  ); 
return  Result! 

end  Cos_R_5term; 

end  Hart_Radian_Operations; 


3. 3. 6. 8. 9. 3. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 3. 9. 1.8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 3. 9. 1.9  LLCSC  DESIGN 
None. 


3.3.6.8.9.3.9.1.10  UNIT  DESIGN 
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3. 3. 6. 8. 9. 3. 9. 2  HART_DEGREE_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P743-0) 

This  generic  package  contains  a  function  providing  a  Hart  polynomial  solution 
for  the  cosine  function.  This  package  is  designed  to  accept  inputs  in  terms  of 
degrees . 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Cos  D  5 term 

(  P744-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 3. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R216. 


3. 3. 6. 8. 9. 3. 9. 2. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 3. 9. 2. 3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Degrees 

|  Floating  point 

|  Allows  floating  point  representation  of 

1 

|  degree  measurements. 

j  Real 

|  Floating  point 

|  General  floating  point  representation. 

j  Sin_Cos_Ratio 

|  Floating  point 

|  Represents  sines  and  cosines. 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

| 

1 

|  function  | 

1  1 

Overloaded  operator  to  multiply  degrees  *  degrees 
yielding  a  real  result. 
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FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

Name 

Type 

Description  | 

|  Cos_D_5term 

Input 

Degrees 

Input  angle  for  cosine  function  | 

3. 3. 6. 8. 9. 3. 9. 2. 4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  |  Value 


Description 


C°s_D_C0 
Cos_D_C2 
Cos_D_C4 
Cos_D_C6 
Cos  D  C8 


constant 

constant 

constant 

constant 

constant 


0.99999_9953 
-0.49999  9905 
0.04166  35846 
-0.00138“53704_2 
0.00002_31539  316 


Coefficient  for  term  2 
Coefficient  for  term  4 
Coefficient  for  term  6 
Coefficient  for  term  8 
Coefficient  for  term  10 


3. 3. 6. 8. 9. 3. 9. 2. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 3. 9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials. Hart) 

package  body  Hart_Degree_0perations  is 

C°s_D_C0  :  constant  :=  0 . 99999_9953 ; 

Cos_D_C2  :  constant  -  1.52308_42e-04; 

Cos_D_C4  :  constant  :=  3.86603”79e-09; 

Cos_D~C6  :  constant  :=  -  3.91588_67e-14; 

Cos_D_C8  :  constant  :=  1.99362_60e-19; 

function  Cos_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 


if  Input  >=  90.0  then 
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Hod_input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 
Inter_Result  :=  (((Cos_D_C8  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos~D_C4)  *  X~Squared  + 

Cos~D_C2)  *  X_Squared; 

Inter_Result  :=  Inter_Result  +  Cos_D_C0; 

if  Input  >*  90.0  then” 

Inter_Result  s=*  -  Inter_Result; 
end  if; 

If  Inter_Result  >  1.0  then 
Inter_Result  s=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :«  -1.0; 
end  if; 

Result  :=*  Sin_Cos_Ratio(  Inter_Result  ); 
return  ResultT 

end  Cos  D  5term; 


end  HartDegreeOperations; 


3. 3.6.819. 3.912.7  UTILIZATION  OR  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 3. 9. 2. 8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 3. 9. 2. 9  LLCSC  DESIGN 
None. 

3.3.6.8.9.3.9.2.10  UNIT  DESIGN 
None. 

3.3.6.8.9.3.10  UNIT  DESIGN 
None. 
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3. 3. 6. 8. 9. 4  HASTINGS  PACKAGE  DESIGN  (CATALOG  IP745-0) 

This  packages  contains  generic  functions  providing  Hastings  polynomial 
solutions  for  a  set  of  trigonometric  functions,  which  include  sine,  cosine, 
tangent,  and  arctangent.  Provisions  are  made  for  the  trigonometric  functions 
to  handle  units  of  radians  or  degrees. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  S217. 


3. 3. 6. 8. 9. 4. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 4. 3  INPUT/OUTPUT 
None. 

3. 3. 6. 8. 9. 4. 4  LOCAL  DATA 
Ncne. 

3. 3. 6. 8. 9. 4. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 8. 9. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 
package  body  Hastings  is 

package  body  Hastings_Radian_Operations  is  separate; 
package  body  Hastings_Degree_Operations  is  separate; 
end  Hastings; 

* 

3. 3. 6. 8. 9. 4. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


I 

1 


1 
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3. 3. 6. 8. 9. 4. 8  LIMITATIONS 


None. 


3. 3. 6. 8. 9. 4. 9  LLCSC  DESIGN 

3. 3. 6. 8. 9. 4. 9.1  HASTINGS JtADIAN_0?ERATI0NS  PACKAGE  DESIGN  (CATALOG  #P746-0) 

This  packages  contains  generic  functions  providing  Hastings  polynomial 
solutions  for  a  set  of  trigonometric  functions.  This  package  is  designed  to 
handle  units  of  radians. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

Catalog  _# 

|  Sin  R  5term 

P747-0 

|  Sin  R  4term 

P748-0 

j  Cos  R  5 term 

P749-0 

j  Cos  R  4 term 

P750-0 

j  Tan  R  5 term 

P751-0 

j  Tan  R  4 term 

P752-0 

j  Arctan  R  8 term 

P753-0 

j  Arctan  R  7 term 

P754-0 

j  Arctan  R  6term 

P755-0 

j  Mod  Arctan  R  8terra 

P756-0 

j  Mod  Arctan  R  7 term 

P757-0 

j  Mod  Arctan  R  6 term 

P758-0 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 4. 9. 1.1  REQUIREMENTS  ALLOCATION 


] 


This  part  partially  meets  CAMP  requirement  R217. 


3. 3. 6. 8. 9. 4. 9. 1.2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 4. 9. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name  |  Type 


Description 


I 


Radians 

Real 

Sin_Cos_Ratio 
Tan  Ratio 


Floating  point 

Floating  point 
Floating  point 
Floating  point 


Allows  floating  point  representation  of 
radian  measurements. 

General  floating  point  representation. 
Represents  sines  and  cosines. 

Represents  tangent  values. 


j 

1 

1 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

Description 

1 

|  Pi_0ver_2 
j  Pi  Over  4 

|  Radians 
j  Radians 

constant 

constant 

constant  value  of 
constant  value  of 

Pi 

Pi 

divided  by  2  | 

divided  by  4  j 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Typ® 

Description  | 

|  function 

1 

Overloaded  operator  to  multiply  radians  *  radians  j 

yielding  a  real  result.  | 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  tlus  part: 


|  Function  j  Name 

Type 

Description  | 

|  Sine  |  Input 

j  Functions  | 

Radians 

Input  angle  for  sine  computation 

j  Cosine  j  Input 

j  Functions  j 

Radians 

Input  angle  for  cosine  computation 

j  Tangent  j  Input 

j  Functions  j 

Radians 

Input  angle  for  tangent  computation 

j  Arctangent  j  Input 
|  Functions  j 

Tan_Ratio 

Input  for  arctangent  computation 

3. 3. 6. 8. 9. 4. 9. 1.4  LOCAL  DATA 
Data  objects: 


j 

l 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


1 


] 

J 

1 

I 


i 

1 

I 


1 

\ 


I 


j 
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|  Name  |  Type  |  Value  |  Description 


Sin  R  Cl  5term 

constant 

0.99999_9994 

1st  term  sine 
coefficient 

Sin  R  C3_5term 

constant 

-0.16666_6566 

3rd  term  sine 
coefficient 

Sin  R  C5_5term 

constant 

0 . 00833_30251_7 

5th  term  sine 
coefficient 

Sin  R  C7_5term 

constant 

-0 . 00019_80741_43 

7th  term  sine 
coefficient 

Sin  R_C9_5term 

constant 

0 . 00000_26018_8690 

9th  term  sine 
coefficient 

Sin  R  Cl_4term 

constant 

0.99999_9 

1st  term  sine 
coefficient 

Sin  R_C3_4term 

constant 

-0.16665_5 

3rd  term  sine 
coefficient 

Sin  R  C5_4term 

constant 

0.000831_190 

5th  term  sine 
coefficient 

Sin  R_C7_4term 

constant 

-0.00018_4882 

7th  term  sine 
coefficient 

Arc  tan_R_Cl_8 term 

constant 

0.99999_9333 

1st  term  arctangent 
coeffiecient 

Arctan_R_C3_8  term 

constant 

-0.33329J560 

3rd  term  arctangent 
coeffiecient 

Arc  tan  R  C5  8  term 

constant 

0.19946  5360 

5th  term  arctangent 

. 

coeffiecient 

Arctan_R_C7_8 term 

constant 

-0.13908_5335 

7th  term  arctangent 
coeffiecient 

Ar c  tan_R_C9_8  term 

constant 

0.09642_0044 

9th  term  arctangent 
coeffiecient 

Arc  tan_R_Cll_8  term 

constant 

-0.05590^9886 

11th  term  arctangent 
coeffiecient 

Arc  tan_R_C13_8  term 

constant 

0. 02186 J.229 

13th  term  arctangent 
coeffiecient 

Arctan_R_C15_8term 

constant 

-0.00405_4080 

15th  term  arctangent 
coeffiecient 

Arc  tan_R_Cl_7  term 

constant 

0.99999_6115 

l3t  term  arctangent 
coeffiecient 

Arctan_R_C3_7 term 

constant 

-0.33317_3758 

3rd  term  arctangent 
coeffiecient 

Arctan_R_C5_7 term 

constant 

0.19807J690 

5th  term  arctangent 
coeffiecient 

Arctan_R_C7_7  term 

constant 

-0.13233_5096 

7th  terra  arctangent 
coeffiecient 

Arctan_R_C9_7  term 

constant 

0.07962_6318 

9th  terra  arctangent 
coeffiecient 

Arctan_R_Cll_7 term 

constant 

-0.03360_6269 

11th  term  arctangent 
coeffiecient 

Arctan_R_C13_7  term 

constant 

0.00681_2411 

13th  term  arctangent 
coeffiecient 

Arctan_R_Cl_6term 

constant 

0.99997_726 

1st  term  arctangent 
coeffiecient 

Arc  tan_R_C3_6  term 

constant 

-0.33262J47 

3rd  terra  arctangent 
coeffiecient 

Ar c  tan_R_C5_6 1 erm 

constant 

0.19354_346 

5th  terra  arctangent 
coeffiecient 

1 


i 


t 


I 

UWKWXVi/V  JV  UV  UH  ,f*  U>  JV  -> WHimiPl WMtlU  MiTVK^  WOBEyWUVV,H*/fc^  ^ KVKVJOlK 77TKW >/  A  Ki  AT  i AflHA Art ArtXflXrtlod 


3 

j 
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Arc  tan_R_C7_6  term 
Arc  tan_R_C9_6  term 
Arctan  R  Cll  6term 


constant 

constant 

constant 


-0.11643_287 
0.05265_332 
-0.01172  120 


7th  terra  arctangent 

coeffiecient 

9th  term  arctangent 

coeffiecient 

11th  term  arctangent 

coeffiecient 


i 

i 


i 

1 


3. 3. 6. 8. 9. 4. 9. 1.5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 8. 9. 4. 9. 1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


separate  (Polynomials. Has tings) 

package  body  Eastings_Radian_Operations  is 


Sin_R_Cl_5term  : 
Sin_R_C3_5term  : 
Sin_R_C5_5term  : 
Sin_R_C7_5term  : 
Sin  R  C9  5tera  : 


constant  :=  0.99999_9995; 
constant  :■  -0.16666_6567; 
constant  :»  0.00833_30251_7; 
constant  ;»  -0 . 00019_80741~43 ; 
constant  :»  0.00000_26018_8690; 


Sin_R_Cl_4term  : 
Sin_R_C3_4  terra  : 
Sin_R_C5_4term  : 
Sin_R_C7_4term  : 


constant 

constant 

constant 

constant 


0.99999  9; 
-0.16665-5; 
0.00831_190; 
-0.00018  4882; 


Arc  tan_R_Cl_8  term 
Ar c  tan_R_C3_8 term 
A  r  c  t  an_R_C5_8  term 
Arc  tan ~R_C7_8  term 
Arctan_R_C9  8 term 
Ar c  tan_R_ClT_8  term 
Arc tan_R_C13_8 term 
Arctan  R  C15  8term 


constant  :=  0.99999_9333; 
constant  :=  -0.33329_8560; 
constant  :=»  0.19946_5360; 
constant  :=  -0.13908_5335; 
constant  :=  0.09642_00441 
constant  :=  -0.05590~98861 
constant  :=  0.02186_12288 
constant  :»  -0.00405  40580 


Arc  tan_R_Cl_7  term  : 
Arc tan_R_C3_7 terra  : 
Arctan_R_C5_7term  : 
Arctan_R_C7_7 terra  : 
Arctan_R_C9  7 term  : 
Arctan_R_ClI_7term  : 
Arctan  R~C13  7 term  : 


constant 

constant 

constant 

constant 

constant 

constant 

constant 


:=  0.99999  6115; 
:=.  -0.33317  3758; 

0.19807  8690; 
:»  -0. 13233~5096; 
:=  0.07962  6318; 

-0.03360_6269; 
:=*  0.00681  2411; 


Arctan_R_Cl_6term 
Arctan_R_C3_6term 
Arc  tan_R_C5_6  term 
Arctan_R_C7_6  term 
Arctan~R~C9  6 term 
Arctan  R  ClT  6 term 


:  constant 
:  constant 
:  constant 
:  constant 
:  constant 
:  constant 


0.99997  726 
-0.33262  347 
0.19354  346 
-0.11643  287 
0.05265"332 
-0.01172  120 


y 


y 

y 


y 

y 

y 
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—  — sine  functions 

function  Sin_R_5term( Input  s  Radians)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  s  Real; 

Result  :  Sin_Cos_P.atio; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  ((((Sin_R_C9_5terra  * 

Ir.put_Squared  +  Sin_R_C7_5term)  * 
Input~Squared  +  Sin_R~C5_5term)  * 
Input~Squared  +  Sin_R_C3~5term)  * 
Input_Squared  :•  Sin_R~Cl~5term); 
Inter_Result  Inter_Result  *  Real(Input); 
if  InterJResult  >  1.0  then 
Inter_Result  :*  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :«  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Sin_R_5term; 


function  3in_R_4term(Inpu.t  :  Radians)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  s  Real; 

Result  s  Sin_Cos_Ratio; 

begin 

Input_Squared  :*  Input  *  Input; 

InterResult  :=  (<<Sin_R_C7_4term  * 

Input_Squared  +  Sin_R~C5_4 terra)  * 
Input~Squared  +  Sin~R~C3~4term)  * 
Input~Squared  +  Sin_R_Cl_4terra); 
Inter_Result  :»  Inter_Risult  *  Real(Input); 
if  Inter_Result  >  1.0~then 
Inter_R®sult  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_R®sult  :=>  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Sin_R_4term; 

- cosine  functions 


function  Cos_R_5term(Input  :  Radians)  return  Sin_Cos_Ratio  is 


CAMP  Software  Detailed  Design  Document 


Input_Squared  :  Real; 

Inter_Result  ;  Real; 

Mod_Input  ;  Radians; 

Result  :  Sin_Cos_Ratio; 

begin 

Mod_Input  :=  Pi_0ver_2  -  Input; 

Input_Squared  :=  Hod_Input  *  Mod_Input; 

Inter_Result  :=  ((((Sin_R_C9_5term  * 

Input_Squared  +  Sin~R_C7_5term)  * 
Input_Squared  +  Sin_R~C5_5terra)  * 
Input_Squared  +  Sin_R_C3_5term)  * 
Input_Squared  +  Sin_R_Cl__5term); 
Inter_Result  ;=  Inter_Result  *  Real(Mod_Input); 
if  Inter_Result  >  1.0  then 
InterResult  :»  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  ;=  -1.0; 
end  if; 

Result  ;=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Cos  R  5 term; 
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function  Co3_R_4term( Input  ;  Radians)  return  Sin_Cos_Ratio  is 

InputSquared  :  Real; 

InterResult  :  Real; 

Modlnput  ;  Radians; 

Result  ;  Sin_Cos_Ratio; 

begin 

Mod_Input  ;=  Pi_0ver_2  -  Input; 

Input_Squared  ;=  Mod_Input  *  Hod  Input; 

Inter_Result  :=  (T(Sin_R_C7_4 terra  * 

Input_Squared  +  Sin_R_C5_4term)  * 
InputJSquared  +  Sin_R~C3~4term)  * 
Input~Squared  +  Sin_R~Cl~4term)> 
Inter_Result  :=•  Inter_Result  *  Real(Mod_Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  InIer_Result  <  -1.0  then 
Inter_Result  ;=  -1.0; 
end  if; 

Result  ;=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Cos  R  4term; 


1 

i 


*j 


-  Tangent  functions 

function  Tan_R_5term  (Input  ;  Radians)  return  Tan_Ratio  is 
Sin  s  Sin~Cos  Ratio; 
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Cos  :  Sin_Cos_Ratio; 
begin 

Sin  :=  Sin_R_5term( Input) ; 
if  Input  <  0.0  then 

Cos  :=  -  Cos_R_5term(  Pi  +  Input  ); 
else 

Cos  :=  Cos_R_5term( Input) ; 
end  if; 

return  Tan_Ratio(Sin  /  Cos); 
end  Tan  R  5term; 


function  Tan_R_4term  (Input  :  Radians)  return  Tan_Ratio  is 
Sin  :  Sin_Cos_Ratio; 

Cos  :  Sin_Cos_Ratio; 
begin 

Sin  Sin_R_4term(Input); 
if  Input  <0.0  then 

Cos  :=  -  Cos_R_4term(  Pi  +  Input  ); 
else 

Cos  :=  Cos_R_4term(Input); 
end  if; 

return  Tan_Ratio(Sin  /  Cos); 
end  Tan  R  4 term; 


-  Arctangent  functions 

function  Arc tan_R_8 term  (Input  :  TanRatio)  return  Radians  is 

InputSquared  s  Tan_Ratio; 

Inter_Result  ;  Tan  Ratio; 

Result  :  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((((((Arctan_R_C15_8term  * 

Input_Squared  +  Arc tan_R_C13_8 term)  * 
Input_Squared  +  Arctan_R_Cll  8term)  * 
Input_Squared  +  Arctan_R_C9_Sterm)  * 
Input~S<luared  +  Arc  tan_R_C7_8  term)  * 
Input_Squared  +  Arc tan_R_C5_8 term)  * 
Input_Squared  +  Arctan_R_C3_8term)  * 
Input_Squared  +  Arctan~R_Cl_8term)  * 
Input; 

Resulc  Radians(Inter_Result); 

return  Result; 

end  Arctan  R  8term; 


function  Arc tan_R_7 term  (Input  ;  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  s  Tan  Ratio; 

Resull  :  Radians ; 


begin 
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Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((((Arctan_R_C13_7term  * 

Input_Squared  +  Arctan_R_Cll  7 term)  * 
Input_Squared  +  Arctan_R_C9_7term)  * 
Input_Squared  +  Arctan_R_C7_7term)  * 
Input_Squared  +  Arc tan_R_C5_7 term)  * 
Input_Squared  +  Arctan_R_C3_7term)  * 
Input_Squared  +  Arctan_R_Cl_7term)  * 
Input; 

Result  :=  Radians(Inter_Result) ; 

return  Result; 
end  Arc tan  R  7 term; 


function  Arc tan_R_6 term  (Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan  Ratio; 

Result  :  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((((Arctan_R_Cll  6term  * 

Input_Squared  +  Arctan_R_C9_6term)  * 
Input_Squared  +  Arc tan_R_C7_6 term)  * 
Input_Squared  +  Arc tan_R_C5_6 term)  * 
Input_Squared  +  Arc tan_R_C3_6 term)  * 
Input_Squared  +  Arctan_R_Cl_6term)  * 
Input? 

Result  Radians(Inter_Result); 

return  Result; 
end  Arctan  R  6term; 


-  Modified  Hastings  Arctangent  functions 

function  Mod_Arctan_R_8term  (Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  s  Tan_Ratio; 

Inter_Result  s  Tan_Ratio; 

Mod_Input  :  Tan  Ratio; 

Result  :  Radians; 

begin 

if  Input  >=  0.0  then 
Mod_Input  :=  Input; 
else 

Mod_Input  :=  -  Input; 
end  if; 

Mod_Input  :=  (Mod_Input  -  1.0)  /  (Mod_Input  +  1.0); 
Input_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  (((((((Arctan_R_C15_8term  * 

Input_Squared  +  Arc tan_R_C13_8 term)  '* 
Input_Squared  +  Arctan_R_Cll  8term)  * 
Input_Squared  +  Arctan_R_C9_5term)  * 
Input_Squared  +  Arctan_R_C7_8term)  * 
Input^Squared  +  Arctan_R_C5_8term)  * 
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Input_Squared  +  Arctan_R_C3_8term)  * 
Input_Squared  +  Arctan_R_Cl_8term)  * 
Mod_Input; 

Result  :=  Radians(Inter_Result)  +  Pi_0ver_4; 
if  Input  <  0.0  then 
Result  :=  -  Result; 
end  if; 

return  Result; 
end  Mod  Arctan  R  8term; 


function  Mod_Arctan_R_7term  (Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan_Ratio; 

Mod_Input  :  Tan  Ratio; 

Result  :  Radians; 

begin 

if  Input  >=  0.0  then 
Mod_Input  :=  Input; 

else 

Mod_Input  -  Input; 

end  ifj 

Mod_Input  :*  (Modlnput  -  1.0)  /  (Modlnput  +  1.0); 

InputSquared  :*  Modlnput  *  Mod  Input; 

InterResult  :=*  ((((I(Arctan_R_C13_7term  * 

Input_Squared  +  Arctan_R_Cll  7 term)  * 
InputSquared  +  Arctan_R_C9_7term)  * 
Input_Squared  +  Arc tan_R~C7~7 term)  * 
Input_Squared  +  Arctan_R~C5_7  term)  * 
Input_Squared  +  Arc tan_R~C3_7 term)  * 
Input_Squared  +  Arctan_R_Cl_7term)  * 
Mod_Input; 

Result  :=  Radians(Inter_Result)  +  Pi_0ver_4; 

if  Input  <0.0  then 
Result  :=  -  Result; 

end  if; 

return  Result; 
end  Mod  Arctan  R  7 term; 


function  Mod_Arctan_R_6term  (Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tanjtatio; 

Mod_Input  :  Tan  Ratio; 

Result  :  Radians; 

begin 

if  Input  >=  0.0  then 
Mod_Input  :=  Input; 
else 

Mod_Input  :=  -  Input; 
end  if; 

Mod_Input  :*  (Mod_Input  -  1.0)  /  (Mod_Input  +  1.0); 
Input_Squared  :=  Mod_Input  *  Mod_Input; 
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Inter  Result 


( ( ( ( (Arctan_R_Cll_6 term 
Input_Squared  +  Arc tan_R_C9_6 term) 
In.put_Squared  +  Arc  tan_R_C7_6  term) 
Input_Squared  +  Arctan_R_C5_6term) 
Input_Squared  +  Arctan_R_C3_6term) 
Input_Squared  +  Arc tan_R_Cl_6 terra) 
Mod_Input; 

Result  :=  Radians(Inter_Result)  +  Pi_0ver_4; 
if  Input  <  0.0  then 
Result  :=  -  Result; 
end  if; 

return  Result; 
end  Mod  Arctan  R  6term; 


* 

* 

* 

* 

* 

* 


end  Hastings  Radian  Operations; 


3. 3. 6. 8. 9. 4. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 4. 9. 1.8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 4. 9. 1.9  LLCSC  DESIGN 
None. 


3.3.6.8.9.4.9.1.10  UNIT  DESIGN 
None. 


3. 3. 6. 8. 9. 4. 9. 2  HASTINGS_DEGREE_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P759-0) 


This  generic  package  contains  functions  providing  Hastings  polynomial  solutions 
for  a  set  of  trigonometric  functions.  This  package  is  designed  to  handle  units 
of  degrees. 


The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

Catalog  _# 

|  Sin  D  5term 

P760-0 

j  Sin  D  4term 

P761-0 

|  Cos  D  5 term 

P762-0 

|  Cos  D  4term 

P763-0 

|  Tan~D  5 term 

P764-0 

|  Tan  D  4 term 

P765-0 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 4. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R217. 


3. 3. 6. 8. 9. 4. 9. 2. 2  LOCAL  ENTITIES  DESIGN 


None. 


-  3. 3. 6. 8. 9. 4. 9. 2. 3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Degrees  | 

1  1 

Floating  point 

|  Allows  floating  point  representation  of 
j  degree  measurements. 

|  Real  1 

Floating  point 

j  General  floating  point  representation. 

Sin  Cos  Ratio 

Floating  point 

j  Represents  sines  and  cosines. 

j  TanRatio  j 

Floating  point 

j  Represents  tangent  values. 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

Description  | 

1  Pi 

|  Degrees 

constant 

constant  value  of  Pi  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

| 

1 

|  function  j 

1  1 

Overloaded  operator  to  multiply  degrees  *  degrees  | 

yielding  a  real  result.  j 

FORMAL  PARAMETERS: 
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The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

|  Name 

Type 

|  Description 

1 

|  Sine 

|  Input 

Degrees 

|  Input  angle  for  sine  computation 

1 

j  Functions 

1 

1 

1 

j  Cosine 

|  Input 

Degrees 

|  Input  angle  for  cosine  computation 

1 

j  Functions 

1 

1 

1 

j  Tangent 

|  Input 

Degrees 

|  Input  angle  for  tangent  computation 

1 

j  Functions 

1 

1 

1 

3. 3. 6. 8. 9. 4. 9 

.2.4  LOCAL  DATA 

Data  objects: 

The  following 

table  describes  the  data  objects  maintained  by  this  part: 

w 


i  Name  |  Type  |  Value  |  Description 


Sin  D  Cl  5 term 

constant 

0.99999_9994 

1st  term  sine 
coefficient 

Sin_D_C3_5term 

constant 

-0.16666_6566 

3rd  term  sine 
coefficient 

Sin_D_C5_5term 

constant 

0 . 00833_30251_7 

5th  term  sine 
coefficient 

Sin_D_C7_5term 

constant 

-0 . 0001 9_807 41_43 

7th  term  sine 
coefficient 

Sin_D_C9_5  term 

constant 

0. 00000_26018_8690 

9th  term  sine 
coefficient 

Sin_D_Cl_4teim 

constant 

0.99999_9 

1st  term  sine 
coefficient 

Sin_D_C3_4term 

constant 

-0.16665_5 

3rd  term  sine 
coefficient 

Sin_D_C5_4term 

constant 

0.000831_190 

5th  term  sine 
coefficient 

Sin_D_C7_4term 

constant 

-0.00018_4882 

7th  term  sine 
coefficient 

3. 3. 6. 8. 9. 4. 9. 2. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 4. 9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials. Has tings) 

package  body  Has tings_Degree_Operat ions  is 


VI  .Vl.  AJI  lUL’SAftlUVU M  rfVWYV  «rj  ifW  iA  JlT.  fcA  WJV\  V.SiMVW  H  .UyULS*  if*  JWTXnWl 
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Sin_D_Cl_5term 
Sin_D_C3_5term 
Sin_D_C5_5term 
Sin~D_C7_5  term 
Sin  D  C9  5 term 


constant 

constant 

constant 

constant 

constant 


1.74532  92e-02; 

8 . 86095_625e-07 ; 
1.34955  172e-ll; 
9 . 77168_260e-17 ; 
3.91006  135e-22; 


Sin_D_Cl_4term 
Sin_D_C3_4term 
Sin_D_C5_4term 
Sin  D  C7  4term 


constant 

constant 

constant 

constant 


1.74533e-02 

8.86037e-07 

1.34613e-ll 

9.12087e-17 


- sine  functions 


function  Sin_D_5term( Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

Result  :  Sin_Cos_Ratio; 

begin 

Input_Squared  Input  *  Input; 

Inter_Result  :*  ((((Sin_D_C9_5tei:m  * 

Input_Squared  +  Sin_D_C7~5term)  * 
Input_Squared  +  Sin_D_C5_5term)  * 
Input_Squared  +  Sin_D“C3_5term)  * 
Input“Squared  +  Sin_D~Cl_5term) ; 
InterResult  :■  Inter_Risult  *  Real(Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  :*  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :*  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Sin_D_5term; 


function  Sin_D_4term( Input  :  Degrees)  return  Sin_Cos_Ratio  is 

InputSquared  :  Real; 

Inter_Result  :  Real; 

Result  :  Sin_Cos_Ratio; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((Sin_D_C7_4term  * 

Input_Squared  +  Sin_D~C5_4term)  * 
Input_Squared  +  Sin_D_C3~4term)  * 
Input~Squared  +  Sin_D_Cl~4term); 
Inter_Result  :=  Inter_Risult  *  Real( Input)! 
if  Inter_Result  >  1.0~then 
Inter_Result  :=  1.0; 
elsif  Inter  Result  <  -1.0  then 


tinM  MVfVuwTfUAiinflniiniiniirairuinflriwiivuut  AtiJiniULivu«iiv\Ai  mriw 
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Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Sin  D  4term; 


- cosine  functions 

function  Cos_D_5term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin_Cos_Ratio; 

begin 

Hcd_Input  :=  90.0  -  Input; 

Input_Squared  :=  Mod_Input  *  Mod  Input; 

Inter~Result  :=»  ((X(Sin_D_C9_5term  * 

Input_Squared  +  Sin_D_C7_5term)  * 
Input_Squared  +  3in_D_C5_5term)  * 
Input_Squared  +  Sin_D_C3_5term)  * 
Input~Squared  +  Sin_D_Cl_5term); 
InterResult  :«  Inter_Result  *  Real(Hodlnput); 
if  Inter_Result  >  1.0  then 
InterResult  :«  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  ;*  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Cos  D  5term; 


function  Cos_D_4term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

Mod_Input  ;  Degrees; 

Result  :  Sin_Cos_Ratio; 

begin 

Mod_Input  :=  90.0  -  Input; 

Input_Squared  :=  Mod_Input  *  Mod  Input; 

Inter_Result  :=  (T(Sin_D_C7_4term  * 

Input_Squared  +  Sin_D_C5_4term)  * 
Input_Squared  +  Sin_D_C3_4term)  * 
Input_Squared  +  Sin_D_Cl_4term); 
Inter_Result  :=  Inter_Result  *  Real(Mod”lnput); 
if  InTer_Result  >  1.0-then 
Inter_Result  s=  1.0; 
elsif  Inter  Result  <  -1.0  then 
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Inter_Result  :=  —1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Cos  D  4 term; 


-  Tangent  function 

function  Tan_D_5term  (Input  :  Degrees)  return  Tan_Ratio  is 
Sin  :  Sin_Cos_Ratio; 

Cos  :  Sin_Cos~Ratio; 
begin 

Sin  :*  Sin_D_5term(Input); 
if  Input  <  070  then 

Cos  :=  -  Cos_D_5term(  180.0  +  Input  ); 
else 

Cos  :*  Cos_D_5term( Input); 
end  if; 

return  Tan_Ratio(Sin  /  Cos); 
end  Tan_D_5term; 

function  Tan_D_4term  (Input  :  Degrees)  return  Tan_Ratio  is 
Sin  :  SinCosRatio; 

Cos  j  Sin_Cos~Ratio; 
begin 

Sin  :*  Sin_D_4term(Input); 
if  Input  <0.0  then 

Cos  -  Cos_D_4term(  180.0  +  Input  ); 
else 

Cos  :»  Cos_D_4term( Input); 
end  if; 

return  Tan_Ratio(Sin  /  Cos); 
end  Tan_D_4term; 

end  Hastings_Degree_Operations; 


3. 3. 6. 8. 9. 4. 9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 4. 9. 2. 8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 4. 9. 2. 9  LLCSC  DESIGN 


None. 


1 


I 


! 


.wqvon 
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3.3.6.8.9.4.9.2.10  UNIT  DESIGN 


None. 


3.3.6.8.9.4.10  UNIT  DESIGN 


None. 


i 


i 
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3. 3. 6. 8. 9. 5  MODIFIED  J*EWT0N_RAPHS0N  PACKAGE  DESIGN  (CATALOG  #P766-0) 

This  packages  contains  generic  functions  providing  Modified  Newton  Raphson 
polynomial  solutions  for  the  square  root  function.  Provisions  are  made  for  the 
square  root  functions  to  handle  units  of  real.  Outputs  are  also  of  type  real. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  SqRt 

|  P767-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R220. 


3. 3. 6. 8. 9. 5. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 5. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  the  only 
function  (Sqrt)  in  this  part: 


|  Name 

1  Type 

Description 

' 

|  Inputs 

1 

|  Floating  point 

1 

Floating  point  Input  to  square  root 
function. 

j  Outputs 

i 

|  Floating  point 

1 

Floating  point  Output  of  square  root 
function. 

j  Reals 

1 

j  Floating  ooint 

1 

Floating  point  intermediate  type  to  avoid 
constraint  errors. 

] 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  the  only 
function  (Sqrt)  in  this  part: 


iVH  VKUWWVHVX  ■.VJVUV  UV  VWJVW WUWkVWUHUV  VK  UVVMW 
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|  Name  ! 

i  Type 

|  Value  |  Description  | 

|  Iteration  Num  | 
1  "  1 

|  Floating  Point 

|  Positive  |  Number  of  times  the  function  j 
|  j  performs  the  calculation  cycle. | 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

|  Name 

Type 

|  Description  | 

|  Sqrt 

1 

|  Input 

j  Iteration_No 

Inputs 

Positive 

|  Input  for  square  root  function  ] 

j  Number  of  times  to  compute  j 

3. 3. 6. 8. 9. 5. 4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Value  | 

Description  | 

1  Cl 

|  constant 

2.18518  306  | 

1st  approximation  constant 

j  C2 

j  constant 

3.02289  917  | 

2nd  approximation  constant 

j  C3 

j  constant 

1.54515  776  | 

3rd  approximation  constant 

3. 3. 6. 8. 9. 5. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 5. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 


separate  (Polynomials) 

package  body  Modified_Nevton_Raphson  is 


Cl  :  constant  :=  2.18518_306 
C2  :  constant  :=  3.02289_917 
C3  :  constant  :=  1.54515  776 


function  SqRt(Input  :  Inputs)  return  Outputs  is 


Inter_Result  :  Reals; 
Result  :  Outputs; 

Root  Pwr  :  Reals; 


w 
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X_Norm  :  Reals; 

begin 

if  Input  =  0.0  then 
Result  :=  0.0; 
else 

X_Norm  :=  Reals (  Input  ); 


-  Reduce  input  to  between  0.25  and  1.0  - 

-  in  order  to  achieve  better  initial 

-  approximation 


Root_Pwr  :=  1.0; 
if  Input  >  1.0  then 
Reduce: 

while  X_Norm  >  1.0  loop 

Root_Pwr  :*  Root_Pwr  *  2.0; 

X  Norm  :=■  X_Norm  *  0.25; 
end  loop  Reduce;"” 

else 

Increase: 

while  X_Norm  <0.25  loop 

RootJPwr  :*  Root_Pwr  *  0.5; 

X  Norm  :»  X_Norm  *  4.0; 
end  loop  Increase; 
end  if; 

Inter_Result  :■  Cl  -  C2  /  (X_Norm  +  C3); 

Inter  Result  :»  (X_Norm/Inter_Result  +  Inter_Result)  *  0.5 
Inter^Result  :■  (XNorm/InterResult  +  InterJResult)  *  0.5 
Inter_Result  :»  (X_Norm/InterJSesult  +  Inter“Result)  *  0.5 
Inter~Result  :»  InIer_Result  *  Root_Pwr; 

Result  :»  0utputs(Inter_Result); 
end  if;  --  Input  not  0.0 

return  Result; 
end  SqRt; 

end  Modified_Newton_Raphson; 


3. 3. 6. 8. 9. 5. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 9. 5. 8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 5. 9 


LLCSC  DESIGN 
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3. 3. 6. 8. 9. 6  NEWTONJtAPHSON  PACKAGE  DESIGN  (CATALOG  #P768-0) 

This  packages  contains  generic  functions  providing  Newton  Raphson  polynomial 
solutions  for  the  square  root  function.  Provisions  are  made  for  the  square 
root  functions  to  handle  units  of  real.  Outputs  are  also  of  type  real. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  SqRt 

i  P769-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R221. 


3. 3. 6. 8. 9. 6. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 6. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  the  only 
function  (Sqrt)  in  this  part:  ' 


|  Name  |  Type  |  Description 


Inputs 

Outputs 

Reals 


Floating  point 
Floating  point 
Floating  point 


Floating  point  Input  to  square  root 
function. 

Floating  point  Output  of  square  root 
function. 

Floating  point  intermediate  type  to  avoid 
constraint  errors. 


Data  objects: 

« 

The  following  table  describes  the  generic  formal  objects  required  by  the  only 
function  (Sqrt)  in  this  part: 
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|  Name  | 

1  Type 

|  Value  | 

|  Description  | 

|  Iteration  Num  | 
1  1 

|  Floating  Point 

|  Positive 

|  Number  of  times  the  function  | 

|  performs  the  calculation  cycle. j 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

|  Name 

Type  j 

Description  | 

1  Sqrt 

1 

|  Input 

j  Iteration_No 

Inputs  j 
Positive  j 

Input  for  square  root  function  | 

Number  of  times  to  compute  j 

3. 3. 6. 8. 9. 6. 4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Value 

|  Description 

1 

1  Cl 

|  constant 

3.57142  857 

|  1st  approximation  constant 

1 

j  C2 

j  constant 

14.57725  95 

j  2nd  approximation  constant 

1 

C3 

j  constant 

0.30612  2449 

j  3rd  approximation  constant 

1 

1  C4 

j  constant 

4.79591  037 

j  4th  approximation  constant 

1 

|  C4 

j  constant 

-0.16659  7251 

j  4th  approximation  constant 

1 

3. 3. 6. 8. 9. 6. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 6. 6  PROCESSING 

The  following  describes  the  processing  performed  by  thi?  part: 

separate  (Polynomials) 
package  body  Newton_Raphson  is 

Cl  :  constant  :=  3,57142_857; 

C2  :  constant  :=  14.57725_95; 

C3  :  constant  :=  0.30612_2449; 

C4  :  constant  :=  4.79591_837; 

C5  :  constant  :=  0. 16659_7251 ; 

function  SqRt (Input  :  Inputs)  return  Outputs  is 


CAHP  Software  Detailed  Design  Document 


Page  1487 


Inter_Result  :  Reals; 

Result  :  Outputs; 

Root_Pvr  :  Reals; 

X_Norm  :  Reals; 

begin 

if  Input  =  0.0  then 
Result  :  =  0.0; 
else 

X  Norm  :=  Reals (  Input  ); 


-  Reduce  input  to  between  0.25  and  1.0  - 

-  in  order  to  achieve  better  initial 

-  approximation 


Root_Pwr  :*  1.0; 
if  Input  >  1.0  then 
Reduce: 

while  X_Norm  >  1.0  loop 

Root_Pwr  :=*  Root_Pwr  *  2.0; 

XjNorm  :=  X_Norm  *  0.25; 
end  loop  Reduce; 

else 

Increase: 

1  while  X_Nora  <  0.25  loop 

:  Root_Pvr  :«  Root_Pvr  *  0.5; 

X  Norm  :»  X_Nora  *  4.0; 
end  loop  Increase; 
end  if; 

InterResult  :»  Cl  -  (C2  *  (XJIorm  +  C3))  /  ((X_Norm  +  C4)  *  (X_Norm  +  C5)  +  C5); 
InterResult  :»  (XNorm/InterJResult  +  Inter  Result)  *  0.5; 

Inter  Result  :»  (X_Norm/Inter_Result  +  Inter  Result)  *  0.5; 

InterResult  :*  (X_Norm/Inter~Result  +  Inter_Result)  *  0.5; 

Inter_Result  :*  Inter_Result  *  Root_Pvr; 

Result  :=  Outputs(Inter_Result); 

end  if; 

return  Result; 
end  SqRt; 

end  NewtonRaphson; 


3. 3. 6. 8. 9. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 6. 8  LIMITATIONS 


None. 
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3.3.6.8.9.6.10  UNIT  DESIGN 
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> 

) 


3. 3. 6. 8. 9. 7  TAYLOR_SERIES  PACKAGE  DESIGN  (CATALOG  #P795-0) 

This  packages  contains  generic  functions  providing  Taylor  polynomial  solutions 
for  a  set  of  trigonometric  functions.  Provisions  are  made  for  the 
trigonometric  functions  to  handle  units  of  radians  or  degrees. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R222. 


3. 3. 6. 8. 9. 7. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 7. 3  INPUT/OUTPUT 


None. 


3. 3. 6. 8. 9. 7. 4  LOCAL  DATA 
None. 


3. 3. 6. 8. 9. 7. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 8. 9. 7. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 
package  body  Taylor_Series  is 

package  body  Taylor_Radian_Operations  is  separate; 

package  body  Taylor_Degree_Operations  is  separate;  j 

package  body  Taylor_Natural_Log  is  separate; 
package  body  Taylor_Log_Base_N  is  separate; 

end  Taylor_Series;  ; 


xn  %n  a n  nj\mriiumr\j%s\jv\nfu±\nnnjw\M\n/w-a*\r*  \r*  i/v  i/vv%  in*,  vn  in*  j~k  vm 
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3. 3. 6. 8. 9. 7. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 7. 8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 7. 9  LLCSC  DESIGN 

3. 3. 6. 8. 9. 7. 9.1  TAYLOR_RADIAN_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P796-0) 

This  generic  package  contains  functions  providing  Taylor  polynomial  solutions 
for  a  set  of  trigonometric  functions.  This  package  is  designed  to  handle  units 
of  radians. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


i 

i 
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<? 


|  Name 

Catalog  _# 

Sin  R  8 term 

P797-0 

Sin  R_7term 

P798-0 

Sin~R  6 term 

P799-0 

Sin  R  5term 

P800-0 

Sin  R  4term 

P801-0 

Cos  R  8 term 

P802-0 

Cos  R  7 term 

P803-0 

Cos  R  6 term 

P804-0 

Cos  R  5 term 

P805-0 

Cos  R  4terra 

P806-0 

Tan  R  8 term 

P807-0 

Arcsin  R  8term 

P808-0 

Arcs in  R~7  term 

P809-0 

Arcsin  R  6term 

P810-0 

Arcsin  R^term 

P811-0 

Arccos_R  8 term 

P812-0 

Arccos~R  7 term 

P813-0 

Arccos~R  6 term 

P814-0 

Arccos  R  5 term 

P815-0 

Arc tan~R~8 term 

P816-0 

Arctan~R  7 term 

P817-0 

Arctan  R  6term 

P818-0 

Arctan  R  5 term 

P819-0 

Arctan  R  4 term 

P820-0 

Alt  Arctan  R  8term 

P821-0 

Alt  Arctan  R  7 term 

P822-0 

Alt  Arctan  R  6term 

P823-0 

Alt  Arctan  R  5term 

P824-0 

Alt  Arctan  R  4term 

P825-0 

Mod  Sin  R  Sterm 

P826-0 

Mod  Sin  R  7 term 

P827-0 

Mod  Sin  R  6 term 

P828-0 

Mod  Sin  R  5 term 

P829-0 

Mod_Sin  R  4 term 

P830-0 

Mod  Cos  R  8 term 

P831-0 

Mod  Cos  R  7 term 

P832-0 

Mod  Cos  R  6 term 

P833-0 

Mod  Cos  R  5 term 

P834-0 

Mod~Cos  R  4 term 

P835-0 

Mod  Tan  R-8term 

P836-0 

Mod  Tan  R  7  term 

P837-0 

Mod  Tan  R  6 term 

P838-0 

Mod  Tan  R  5 term 

P839-0 

Mcd_Tan_R_4  term 

P840-0 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3. 3. 6. 8. 9. 7. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R222. 


3. 3. 6. 8. 9. 7. 9. 1.2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 7. 9. 1.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type  |  Description  | 

|  Radians 

Floating  point  |  Allows  floating  point  representation  of 

1 

j  radian  measurements. 

j  Real 

Floating  point  j  General  floating  point  representation. 

j  Sin  Cos  Ratio 

Floating  point  j  Represents  sines  and  cosines. 

j  Tan_Ratio 

Floating  point  j  Represents  tangent  values. 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

Description 

1 

|  Pi  Over  2 
|  Pi_0ver_4 

|  Radians 
j  Radians 

constant 

constant 

constant  value 
cons tarn t  value 

Pi  divided  by  2  | 

Pi  divided  by  4  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

| 

1 

|  function 

1 

Overloaded  operator  to  multiply  radians  *  radians  | 

yielding  a  real  result.  I 

FORMAL  PARAMETERS: 


The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


i 


tmuv  \r*  Laasm  ltk  ire  y*.  vx wm.  *  km  ka 
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Name 

Type 

Value 

Description 

Sin  R  C3 

constant 

-0.16666  6666 

3rd  term 

coefficient 

- 

Sin_R_C5 

constant 

0.00833_33333_3 

5th  term 
coefficient 

Sin_R_C7 

constant 

0.00019_84126_98 

7th  term 
coefficient 

- 

Sin_R_C9 

constant 

0.00000_27557_3164 

9th  term 
coefficient 

Sin_R_Cll 

constant 

0 . 00000_00250_51870_8 

11th  term 
coefficient 

Sin_R_C13 

constant 

0 . 00000_00001_6 047 8_446 

13th  term 
coefficient 

- 

Sin_R_C15 

constant 

0 . 00000_00000_00737_06627_7 

15th  term 
coefficient 

Cos_R_C3 

constant 

-0.50000_0000 

3rd  term 
coefficient 

Cos  R  C5 

constant 

0.04166_66666 

5th  term 
coefficient 

Cos_R_C7 

constant 

-0.00138_88888_8 

7th  term 
coefficient 

Cos  R_C9 

constant 

0 . 00002_48015_873 

9th  tern 
coefficient 

CosR_Cll 

constant 

-0 . 00000_02755_73192 

11th  term 
coefficient 

Cos_R_Cl3 

constant 

0 . 00000_00020_87675_69 

13th  term 
coefficient 

Cos_R_C15 

constant 

-0 . 00000_00000_11470_7455 

15th  term 
coefficient 

• 

Tan  R  C3 

constant 

0.33333  3333 

3rd  term 

coefficient 

Tan_R_C5 

constant 

0.13333_3333 

5th  term 
coefficient 

Tan_R_C7 

constant 

0.05396_82539 

4 

7th  term 
coefficient 

Tan_R_C9 

constant 

0.02186_96649 

9th  term 
coefficient 

TanRCll 

constant 

0.00886_32355_2 

11th  term 
coefficient 

Tan_R_C13 

constant 

0 . 00359_21280_3 

13th  term 
coefficient 

j 

Tan  R  C15 

constant 

0.00145  58343  8 

15th  term 

coefficient 

Arcsin_R_C3 

constant 

0.16666_6666 

3rd  term 
coefficient 

Arcsin_R_C5 

constant 

0.075 

5th  term 
coefficient 

’ 

. 

Arcsin_R_C7 

constant 

0.04464_28571 

7th  term 
coefficient 

Arcsin_R_C9 

constant 

0.03038_19444 

9th  term 
coefficient 

Arcsin_R_Cll 

constant 

0.02237_21591 

11th  term 
coefficient 

© 

Arcsin_R_C13 

constant 

0.01735_27644 

13th  terra 
coefficient 
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15th  term 
coefficient 
3rd  term 
coefficient 
5th  term 
coefficient 
7  th  term 
coefficient 
9th  term 
coefficient 
11th  term 
coefficient 
13th  term 
coefficient 
15th  term 
coefficient 
3rd  term 
coefficient 
5th  term 
coefficient 
7th  term 
coefficient 
9th  term 
coefficient 
11th  term 
coefficient 
13th  term 
coefficient 
15th  term 
coefficient 


3. 3. 6. 8. 9. 7. 9. 1.5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 7. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials. Taylor_Series) 
package  body  Taylor_Radian_Operations  is 

-  The  Sine  constants  are  used  in  the  Taylor  operations  for  computing 

—  the  sine.  The  Cosine  constants  are  used  in  computing  cosines.  In 

—  the  Modified  Taylor  operations,  however,  both  sets  of  constants  are 

—  used.  Constants  are  given  for  9  digits  of  precision  for  both  extended 

—  and  single  precision.  They  are  named  to  correspond  to  the  power 

—  of  X  (Input)  with  which  they  are  termed. 

Sin_R_C3  :  constant  :=  -0.16666_6667; 

Sin_R_C5  :  constant  :=  0.00833_33333_35 

Sin_R_C7  :  constant  :=  -0.00019_84126~98; 

Sin_R_C9  :  constant  :=  0.00000~27557_3164; 

Sin_R_Cll  :  constant  :=  -0.00000~00250  51870  9; 
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Sin_R_C13 

Sin_R_C15 

Cos_R_C3 

Cos_R_C5 

Cos_R_C7 

Cos_R_C9 

Cos_R_Cll 

Cos~R_Cl3 

Cos_R_C15 

Tan_F_C3 

Tan_R_C5 

Tan_R_C7 

Tan_R_C9 

Tan_R_Cll 

Tan_R_C13 

Tan“R  C15 


Arcsin_R_C3 

Arcsin_R_C5 

Arcsin_R_C7 

Arcsin_R_C9 

Arcsin_R_Cll 

Arcsin~R_C13 

Arcsin  R-C15 


constant  :  = 

0.00000  00001  60478  446; 

constant  := 

-0.00000_00000_00737_06627 

constant  := 

-0.50000  0000; 

constant  :>= 

0.04166  66667; 

constant  := 

-0.00138  88888  9; 

constant  := 

0.00002  48015  873; 

constant  ;= 

-0.00000  02755  73192; 

constant  :  = 

0.00000  00020  87675  70; 

constant  :* 

-0 . 00000_00000_11470_7456 ; 

constant 

0.33333  3333; 

constant  :=* 

0.13333  3333; 

constant  :* 

0.05396  82540; 

constant  :» 

0.02186  9488; 

constant  :* 

0.00886“32355  3; 

constant  :* 

0.00359  21280"4; 

constant  : » 

0 . 00145_58343_9 ; 

:  constant 

:=*  0.16666  6666; 

:  constant 

:=  0.075; 

:  constant 

j=  0.04464  28571; 

:  constant 

s-  0.03038  19444; 

:  constant 

0.02237“21591; 

:  constant 

0.01735"27644; 

:  constant 

0. 01396*48438 ; 

Arctan_R_C3 

Arctan_R_C5 

Arctan_R_C7 

Arctan_R_C9 

Arctan_R_Cll 

Arctan_R_C13 

Arc tan  R  C15 


constant  :■ 
constant  :* 
constant  :* 
constant  :» 
constant  in¬ 
constant  :  = 
constant  := 


0.333333333; 
-0.2*  — 
0*.14285_7142; 
-0.11111  1111; 
0.09090“90909 
-0.07692~30769 
0.06666  66667 


Alt_Arctan_R_C3  :  constant 
Alt_Arctan_R_C5  :  constant 
Alt_Arctari_R_C7  :  constant 
Alt_Arctan_R_C9  :  constant 
Alt_Arctan_R_Cll  :  constant 
Alt_Arctan_R_C13  :  constant 
Alt  Arctan  R  C15  :  constant 


-0.33333_3333; 

0.2* 

-o'.  14285  7142; 
0.11111  1111; 
-0.09090”90909 
0.07692"30769 
-0.06666"66667 


—  Taylor  Sine  functions 

function  Sin_R_8term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Radians; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((((Sin_R_Cl5  *  X_Squared  + 

Sin~R_C13)  *  X_Squared  + 

Sin  R_C11)  *  X~Squared  + 
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Sin_R_C9) 

Sin_R_C7) 

Sin_R_C5) 

Sin  R_C3) 

Inter_ResuIt  *  Real(Input) 
>  1.0  then 
:=  1.0; 

<  -1.0  then 
-1.0; 


Inter_Result  := 

If  Inter_Result 
Inter_Result 
elsif  Inter_Result 
Inter_Result 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result} 
end  Sin  R  8 term; 


*  X_Squared  + 

*  X_Squared  + 

*  X_Squared  + 

*  X~Squared; 

+  Real(Input); 


i 


function  Sin_R_7term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Radians ; 

begin 

X_Squared  :*  Input  *  Input; 

Inter_Result  :*  (((((Sin_R_C13  *  X_Squared  + 

Sin_R~Cll)  *  X_Squared  + 

Sin_R“C9)  *  X~Squared  + 

Sin_R~C7)  *  X~Sguared  + 

Sin~R~C5)  *  XSquared  + 

Sin_R_C3)  *  X_Squared; 

InterResult  :»  InterJResult  *  Real(Input)  +  Real(Input); 

If  InterResult  >  1.0  then 
Inter  Result  1.0; 
elsif  In7er_Result  <  -1.0  then 
Inter_Kesult  :*  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_R_7term; 


function  Sin_R_6term  (Input  s  Radians)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Result  ;  Sin  Cos_Ratio; 

X_Squared  :  Radians; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((Sin_R_Cll  *  X_Squared  + 

Sin_R_C9)  *  X_Squared  + 

Sin_R_C7)  *  X_Squared  + 

Sin_R_C5)  *  X_Squared  + 

Sin_R  C3)  *  X  Squared; 

Inter_Result  :=  Inter_ResuIt  *  Real(Input)  +  Real(Input); 

If  InIer_Result  >  1.0-then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
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InterJR^sult  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin  R  6  term; 


function  Sin_R_5term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Radians; 

begin 

X_Squared  :  =  Input  *  Input; 

Inter_Result  :=  (((Sin_R_C9  *  X_Squared  + 

Sin~R_C7)  *  X_Squared  + 

Sin~R_C5)  *  X_Squared  + 

Sin_R_C3)  *  X_Squared; 

Inter_Result  :=  Inter_Result  *  Real(Input)  +  Real(Input); 

If  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
els if  Inter_Result  <  -1.0  then 
Inter_Result  :=*  -1.0; 
end  if; 

Result  s«  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_R_5term; 


function  Sin_R_4term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Radians ; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=»  ((Sin_R_C7  *  X_Squared  + 

Sin  R-C5)  *  X_Squared  + 

Sin~R_C3)  *  X_Squared$ 

Inter  Result  :*  Inter_ReIult  *  Real(Input)  +  Real(Input); 

If  Inter_Result  >  1.0~then 
Inter_Result  :=»  1.0; 
els if  InIer_Result  <  -1.0  then 
Inter_ReIult  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin  R  4 term; 


-  Taylor  Cosine  functions 

function  Cos  R  8term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 


Inter  result  :  Real; 
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Mod_Input  :  Radians; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Radians; 

begin 

if  Input  >  Pi_0ver_2  then 
Moa_Input  :=  Pi  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :*  Mod_Input  *  Mod_Input; 

Inter_Result  :*  <(((((Cos_R_C15  *  X_Squared  + 

Cos_R_C13)  *  X_Squared  + 

Cos_R_Cll)  *  X_Squared  + 

Cos_R_C9)  *  X_Squared  + 
Cos_R_C7)  *  X_Squared  + 
Cos_R_C5)  *  X_Squared  + 
Cos  R~C3)  *  X~Squared; 
Inter_Result  s*  Inter_ResuIt  +  1.0; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :»  -  Inter_Result; 
end  if; 

If  Inter_Result  >  1.0  then 
InterResult  :«  1.0; 
elsif  InterResult  <  -1.0  then 
InterResult  :»  -1.0; 
end  if; 

Result  :»  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  R  Stern; 


function  Cos_R_7term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Mod_Input  j  Radians; 

Result  s  Sin  Cos_Ratio; 

X_Squared  :  Radians; 

begin 

If  Input  >  Pi_0ver_2  then 
Mod_Input  :■  Pi  -  Input; 
else 

Hodlnput  :*  Input; 
end  ifT 

X_Squared  :»  Mod_Input  *  Mod_Input; 

InterResult  :*  (((((Cos_R_Cl3  *  X_Squared  + 

Cos~R~Cll)  *  X_Squared  + 

C°s_R_C9)  *  X_Squared  + 

Cos_R_C7)  *  X~Squared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R_C3)  *  X_Squared; 

Inter_Result  s«  Inter_ResulI  +  X.0;~" 

If  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :*  -  Inter_Result; 
end  if; 

If  Inter  Result  >  1.0  then 
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Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  R  7 term; 


function  Cos_R_6term  (Input  :  Radians)  return  Sin  Cos  Ratio  is 


Inter_result 
Mod_Input 
Result 
X  Squared 


Real; 

Radians; 

Sin  Cos_Ratio 
Radians ; 


begin 

If  Input  >  Pi_0ver_2  then 
Mod_Input  : =  Pi  —  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  ;*  Mod_Input  *  Hod  Input; 
InterResult  s*  ( ( ( (CosRCll  *  X_Squared  + 

Cos_R_C9)  *  X_Squared  + 
COOLC7)  *  X  Squared  + 
C°s_R_C5)  *  XSquared  + 
Cos_R  C3)  *  XSquared; 
Inter_Result  :«  InterResult  +  1.0T 
If  Input  >  Pi  0ver_2  then 

Inter  Result  :»  -  InterJResult; 
end  if; 

If  Inter_Result  >  1.0  then 
Inter_Result  j*  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :*  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  R_6term; 


function  Cos_R_5term  (Input  ;  Radians)  return  Sin  Cos  Ratio  is 


Inter_result 

Modlnput 

Result 

X_Squared 


Real; 

Radians; 

Sin  Cos_Ratio 
Radians ; 


begin 

If  Input  >  Pi_0ver_2  then 
Mod_Input  : =  Pi  —  Input; 
else 

Mod_Input  :*  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Hod_Input; 
InterJResult  :*  ~(((Cos_R_C9  *  X_Squared  + 
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Cos_R_C7)  *  X_Squared  + 
Cos_R_C5)  *  X_Squared  + 
Cos_R_C3)  *  X~Squared; 
Inter_Result  :=  Inter_Result  +  1.0; 

If  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :=  -  Inter_Result; 
end  if; 

If  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  R  5terra; 


(St 


function  Cos  R  4term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 


Inter_result 
Mod_Input 
Result 
X  Squared 


Real; 

Radians; 

Sin  Cos_Ratio 
Radians ; 


begin 

If  Input  >  Pi_0ver_2  then 
Modlnput  T»  Pi  -  Input; 
else 

Modlnput  :»  Input; 
end  if; 

XSquared  :  =  Mod_Input  *  Mod_Input; 
Inter_Result  :*  ((Cos_R_C7  *  X_Squared  + 

Cos_R_C5)  *  X  Squared  + 
Cos_R_C3)  *  X™Squared; 
InterResult  :=  Inter_Result  +  1.0; 

If  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :=  -  Inter_Result; 
end  if; 

If  Inter_Result  >  1.0  then 
Inter_Result  :■  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1,0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  In.ter_Result  ); 
return  Result; 
end  Cos  R  4term; 


—  —  Taylor  tangent  functions 


function  Tan  R  8term  (Input  s  Radians)  return  Tan_Ratio  is 


Inter_result 
Result 
X  Squared 


:  Real; 

:  Tan  Ratio; 
:  Radians; 


begin 


I 


! 

I 

i 
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X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ( ( ( ( ( (Tan_R_C15  *  X_Squared  + 

Tan_R_C13)  *  X_Squared  + 

Tan_R_Cll)  *  X_Squared  + 

Tan_R_C9)  *  X_Squared  + 

Tan_R_C7)  *  X_Squared  + 

Tan_R_C5)  *  X_Squared  + 

Tan_R_C3)  *  X_Squared; 

Result  s=  Tan_Ratio(Inter_Result  *  Real(Input)  +  Real(Input)) ; 

return  Result; 
end  Tan  R  8 term; 


-  Taylor  arcsine  functions 

function  Arcsin_R_8terra  (Input  :  Sin_Cos_Ratio)  return  Radians  is 

Inter_result  :  Real; 

Result  :  Radians; 

X_Squared  :  Real; 

begin 

X_Squared  :*  Real(Input  *  Input); 

Inter_Result  i»  ((((((Arcsin_R_Cl5  *  X_Squared  + 

Arcsin_R~Cl3)  *  X~Squared  + 
Arcsin_R_Cll)  *  X_Squared  + 

Arcsin_R_C9)  *  X_Squared  + 

Arcsin_R_C7)  *  XSquared  + 

.  Arcsin~R~C5)  *  X~Squared  + 

Arcsin_R_C3)  *  X~Squared; 

Result  ;=«  Radians (Inter  Result  *  Real(Input)  +  Real(Input)); 
return  Result; 
end  Arcsin  R  8term; 


function  Arcsin_R_7term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 


Inter_result  :  Real; 
Result  :  Radians; 

X_Squared  :  Real; 


begin 

X_Squared  :=  Real(Input  *  Input); 

Inter_Result  :=  (((((Arcsin_R_C13 

Arcsin_R_Cll) 

Arcsin_R_C9) 

Arcsin_R_C7) 

Arcsin_R_C5) 

Arcsin  R_C3)  _ 

Result  :=  Radians(Inter_ResuIt  *  Real(Input)  +  Real(Input)) ; 
return  Result; 
end  Arcsin  R  7 term; 


X_Squared 
X~Squared 
X_Squared 
X_Squared 
X_Squared 
X_Squared ; 


function  Arcsin_R_6term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
Inter  result  :  Real; 
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Result  :  Radians; 

X_Squared  :  Real; 

begin 

X_Squared  :=  Real (Input  *  Input); 

Inter_Result  :=  ((((Arcsin_R_Cll  *  X_5quared  + 

Arcsin  JR_C9)  *  X_Squared  + 

Arcsin~R_C7)  *  X_Squared  + 
Arcsin_R_C5)  *  X_Squared  + 
Arcsin_R_C3)  *  X_Squared; 

Result  :=  Radians(Inter_Result  *  Real(Input)  +  Real(Input)); 
return  Result; 
end  Arcsin  R  6 term; 


function  Arcsin_R_5term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 

Inter_result  :  Real; 

Result  :  Radians; 

X_Squared  :  Real; 

begin 

X_Squared  :=■  Real(Input  *  Input); 

Inter_Result  :*  (((Arcsin_R_C9  *  X_Squared  + 

Arcsin_R~C7)  *  X_Squared  + 

Arcsin_R~C5)  *  X_S'quared  + 

Arcsin~R  C3)  *  X  Squared; 

Result  :«  Radians(Inter_ResuIt  *  Real(Input)  +  Real(Input)); 
return  Result; 
end  Arcsin  R  5 term; 


—  —  Taylor  arccosine  functions 

function  Arccos_R_8term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 

Inter_result  :  Real; 

Result  :  Radians; 

X_Squared  :  Real ; 

begin 

X_Squared  :=  Real(Input  *  Input); 

Inter_Result  :=>  ((((((Arcsin_R_C15  *  X_Squared  + 

Arcsin_R~Cl3)  *  X~Scjuared  + 

Arcsin_R~Cll)  *  X_Squared  + 

Arcsin_R_C9)  *  X™Squared  + 

Arcsin_R_C7)  *  X_Squared  + 

Arcsin~R~C5)  *  X~Squared  + 

Arcsin_R_C3)  *  X_Squared; 

Result  :=  Pi_0ver_2  -  (Radians(Inter_Result  *  Real(Input)  +  Real(Input))); 

return  Result; 

end  Arccos  R  8term; 


function  Arccos  R  7 term  (Input  :  Sin  Cos  Ratio)  return  Radians  is 


Inter  result  :  Real; 
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Result  :  Radians; 

X_Squared  :  Real; 

begin 

X_Squared  :=  Real(Input  *  Input); 

Inter_Result  :=  (((((Arcsin_R_C13  *  X_Squared  + 

Arcsin_R_Cll)  *  X_Squared  + 

Arcsin_R_C9)  *  X_Squared  + 

Arcsin_R_C7)  *  X_Squared  + 

Arcsin_R_C5)  *  X_Squared  + 

Arcsin_R*~C3)  *  X_Squared; 

Result  :=  Pi_0ver_2  -  (RadiansTlnter_Result  *  Real(Input)  +  Real(Input))) ; 
return  Result; 
end  Arccos  R  7 term; 


function  Arccos  R  6term  (Input  :  Sin  Cos  Ratio)  return  Radians  is 


Inter_result 

Result: 

X  Squared 


Real; 

Radians; 

Real; 


begin 

X_Squared  s*  Real(Input  *  Input); 
Inter_Result  ((((ArcsinRJSli 

Arcs  in  R~C9) 


Arcsin_R. 

Arcsin_R~ 
Arcsin  R" 


Result  :»  Pi_0ver 
return  Result; 
end  Arccos  R  6term; 


C7) 

C5) 

C3) 


*  X_Squared  + 

*  X^Squared  +■ 

*  X_Squared  + 

*  X_Squared  + 

*  X~Sq«ared; 


2  -  (Radians(Inter  Result  *  Real(Input)  +  Real(Input))); 


function  Arccos_R_5term  (Input  s  Sin_Cos_Ratio)  return  Radians  is 

Inter_result  :  Real; 

Result  :  Radians; 

X_Squared  :  Real; 

begin 

X_Squared  ;*  Real(Input  *  Input); 

Inter_Result  :*  (((Arcsin_R_C9  *  X_Squared  + 

Arcsin_R_C7)  *  X_Squared  + 

Arcsin_R_C5)  *  X_Squared  + 

Arcsin~R_C3)  *  X~Squared; 

Result  :=  Pi_0ver_2  -  (RadTans(Inter_Result  *  Real(Input)  +  Real(Input))); 
return  Result; 

"end  Arccos  R  5 term; 


-  Taylor  Arctangent  functions 

-  Used  when  j Input |  >  1 

function  Arc tan_R_8 term (Input  :  Tan_Ratio)  return  Radians  is 
Input_Squared  :  Radians; 


- - - — - - - - - - - - - -  •"  XVXVJTfcXkTniXVJf ILKxntAIUUfJWW 
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Inverse  :  Tan_Ratio; 

Result  :  Radians; 

Temp  :  Radians; 

begin 

if  Input  <=  1.0  then 
Temp  :=  -Pi_0ver_2; 

else 

Temp  :=  Pi_0ver_2; 

end  if; 

Inverse  :*  1.0  /  Input; 

Input_Squared  :=  Radians(Inverse  *  Inverse); 

Result  :*  Temp  +  (((((((Arctan_R_C15  *  Input_Squared  + 

Arctan_R_C13)  *  Input_Squared  + 
Arctan_R_Cll)  *  Input_Squared  + 
Arctan_R~C9)  *  Input~Squared  + 
Arctan_R~C7)  *  Input~Squared  + 
Arctan_R_C5)  *  Input~Squared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *  Radians(Inverse); 

return  Result; 
end  Arctan  R  8term; 


function  Arctan_R_7term(Input  :  TanRatio)  return  Radians  is 

Input_Squared  s  Radians; 

Inverse  :  Tan  Ratio; 

Result  :  Radians; 

Temp  :  Radians; 


begin 

if  Input  <~  1.0  then 
Temp  :*  -Pi_0ver_2; 

else 

Temp  :=<  Pi_0ver_2; 

end  if; 

Inverse  :=  1.0  /  Input; 

Input_Squared  Radians(Inverse  *  Inverse); 

Result  Temp  +  ((((((Arctan_R_C13  *  Input_Squared  + 

Arctan_R_Cll)  *  Input_Squared  + 
Arctan_R_C9)  *  Input_Squared  + 
Arctan~R~C7)  *  Input~SQuared  + 
Arctan_R~C5)  *  Input_Squared  + 
Arctan_R_C3)  *  Input~Squared  - 
1.0)  *  Radians (Inversi); 

return  Result; 
end  Arctan  R  7 term; 


function  Arctan_R_6term(Input  s  Tan_Ratio)  return  Radians  is 


Input_Squared  j 
Inverse  : 
Result  : 
Temp  : 


Radians; 
Tan  Ratio; 
Radians ; 
Radians; 


&TwNAJkn  ICTV  XA  HA  ^  K  A  9k  A  HA  Kyi  XA  JU’i  A/l  an  an  KR  JW1  nn : 
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begin 

if  Input  <=1.0  then 
Temp  :=  -Pi_0ver_2; 
else 

Temp  :=  Pi_0ver_2; 
end  if; 

Inverse  :=  1.0  /  Input; 

Input_Squared  :=  Radians(Inverse  *  Inverse); 

Result  :=  Temp  +  (((((Arctan_R_Cll  *  Input_Squared  + 

Arctan_R_C9)  *  Input_Squared  + 
Arctan_R_C7)  *  Input_Squared  + 
Arctan_R_C5)  *  Input_Squared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *  Radians(Inverse); 

return  Result; 
end  Arctan  R  6term; 


function  Arctan_R_5term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Radians; 

Inverse  :  Tan  Ratio; 

Result  :  Radians; 

Temp  :  Radians; 

begin 

if  Input  <*  1.0  then 
Temp  -Pi_0ver_2; 
else 

Temp  :*  PiOver  2; 
end  if; 

Inverse  :»  1.0  /  Input; 

InputSquared  :=  Radians(Inverse  *  Inverse); 

Result  s=  Temp  +  ((((Arctan_R_C9  *  Input_Squared  + 

Arctan_R_C7)  *  Input_Squared  + 
Arctan_R_C5)  *  Input_Squared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *  Radians(Inverse); 

return  Result; 
end  Arctan  R  5term; 


function  Arctan_R_4term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Radians; 

Inverse  :  Tan  Ratio; 

Result  :  Radians; 

Temp  :  Radians; 

begin 

if  Input  <=  1.0  then 
Temp  :=  -Pi_0ver_2; 
else 

Temp  :=  Pi_0ver_2; 
end  if; 

Inverse  :=  1.0  /  Input; 

Input_Squared  :=  Radians (Inverse  *  Inverse); 
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Result  :=  Temp  + 


return  Result; 
end  Arctan  R  4term; 


(((Arctan_R_C7  *  Input_Squared  + 
Arctan_R_C5)  *  Input_Squared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *  Radians(Inverse); 


-  Alternate  Taylor  Arctangent  functions 

-  Used  when  | Input |  <  1 

function  Alt_Arctan_R_8term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan  Ratio; 

Result  :  Radians; 


begin 

Input_Squared  :*  Input  *  Input; 

Inter_Result  :*  ((((((Alt_Arctan_R_C15  *  Input_Squared  + 

Alt_Arctan“R~C13)  *  Input_Squared  + 
Alt~Arctan_R~Cll)  *  Input_Squared  + 
Alt~Arctan_R~C9)  *  Input_Squared  + 
Alt_Arctan~R~C7)  *  Input_Squarea  + 
Alt_Arctan~R~C5)  *  Input_Squared  + 
Alt~Arctan_R_C3)  *  Input_Squared; 

Result  j»  Radians(Inter_Result  *  Input  +  Input); 

return  Result; 
end  AltArctan  R  8term; 


function  Alt_Arctan_R_7term(Input  :  Tan_Ratio)  return  Radians  is 

Input  Squared  :  Tan  Ratio; 

Inter_Result  j  Tan  Ratio; 

Result  :  Radians; 


r-.sti 


begin 

Input_Squared  :=  Input  *  Input; 

Inter~Result  s*  (((((Alt_Arctan_R_C13  *  Input_Squared  + 

A1 1 ~Ar c  t an_R_C 11)  *  Input_Squared  + 
A1 t_Ar c  tan~R~C9 )  *  Input~Squared  + 
Alt_Arctan~R~C7)  *  Input~Squared  + 
Alt~Arctan_R~C5)  *  Input~Squared  + 
Alt_Arctan_R~C3)  *  InputJSquared; 
Result  :  =  Radians(Inter_Result  *  Input  +  Input); 
return  Result; 
end  Alt_Arctan  R  7 term; 


function  Alt_Arctan_R_6term( Input  ;  Tan_Ratio)  return  Radians  is 


Input_Squared 

Inter_Result 

Result 


Tan_Ratio; 
Tan  Ratio; 
Radians ; 


begin 


j 


] 


] 

] 
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Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((Alt_Arctan_R_Cll  *  Input_Squared  + 

Alt_Arctan_R_C9)  *  Input_Squared  + 
Alt_Arctan_R_C7)  *  Input_Squared  + 
Alt~Arctan_R_C5)  *  Input_Squared  + 
Alt_Arctan_R_C3)  *  Input_Squared; 
Result  :=  Radians(Inter_Result  *  Input  +  Input); 
return  Result; 
end  Alt  Arc tan  R  6 term; 


function  Alt_Arctan_R_5term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan  Ratio; 

Result  :  Radians; 

begin 

Input_Squared  Input  *  Input; 

Inter_Result  :  =  (((Alt_Arctan_R_C9  *  Input_Squared  + 

Alt_Arctan_R~C7)  *  Input~Squarecl  + 

Alt_Arctan_R_C5)  *  Input~Squared  + 

Alt_Arctan_R_C3)  *  Input_Squared; 

Result  s=t  Radians(Inter_Result  *  Input  +  Input); 
return  Result; 
end  Alt  Arc tan  R  5 term; 


function  Alt_Arctan_R_4term(Input  :  Tan_Ratio)  return  Radians  is 

InputSquared  :  Tan_Ratio; 

InterResult  :  Tan  Ratio; 

Result  :  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((Alt_Arctan_R_C7  *  Input_Squared  + 

Alt_Arctan_R_C5)  *  Input_Squared  + 

Alt~Arctan  R_C3)  *  Input_Squared; 

Result  :=  Radians(Inter_ResuTt~*  Input  +  Input); 
return  Result; 
end  Alt  Arc tan  R  4 term; 


-  Modified  Taylor  Sine  functions 

function  Mod_Sin_R_8term(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >*  Pi_0ver  4  then 

Inter_Result_0  :=  ReaI(Pi_0ver_2  -  Abs(Input)); 

X_Squared  s=~Inter_Result  0  *  Inter  Result  0; 
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Inter_Result_l  :=  ((((((Cos_R_C15  *  X_Squared  + 

Cos_R_C13)  *  X_Squared  + 

Cos_R_Cll)  *  X_Squared  + 

Cos_R_C9)  *  X_Squared  + 

Cos_R_C7)  *  X__Squared  + 

Cos~R_C5)  *  X~Squared  + 

Cos_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 

If  Input  <=  -  Pi  0ver_4  then 

Inter_Result_I  :  =  -  Inter_Result_l; 

end  if; 
else 

X  Squared  :*  Input  *  Input; 

Inter  ResultJL  :»  ((((((Sin_R_C15  *  X^Squared  + 

Sin_R_C13)  *  X~Squared  + 

Sin_R_Cll)  *  X~Squared  + 

Sin_R_C9)  *  X_Squared  + 

Sin_R~C7)  *  X_Squared  + 

Sin~R_C5)  *  X~Squared  + 

Sin_R_C3)  *  X  Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Real(Input)  +  Real(Input); 
end  if; 

if  Inter_Result_l  >  1.0  then 

Inter_Rosult_i  :»  1.0; 
elsif  Inter_Result_l  <  -1.0  then 

InterResultJL  -1.0; 
end  if; 

Result  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_R_8term; 


function  Mod_Sin_R_7term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=■  Pi_0ver  4  then 

Inter_Result_0  :»  ReaI(Pi_0ver_2  -  Abs(Input)); 

X_Squared  :*"lnter  Result_0  *  Inter_Result_0; 

Inter  Result  1  T((((Cos_R_C13  *  X_Squared  + 

Costal)  *  X~Squared  + 

Cos~R_C9)  *  X~Squared  + 

C°s_R~C7)  *  X~Squared  + 

Cos_R_C5)  *  X_Squared  +  < 

Cos~R  C3)  *  X  Squared; 

Inter_Result_l  :=  Inter_ResuIt_l  +  1.(5; 

If  Input  <=  -  Pi  0ver_4  then  j 

Inter_Result_T  :=  -  Inter_Result_l;  I 

end  if;  j 

else  j 

X_Squared  :=  Input  *  Input; 

Inter  Result  1  :=  (((((Sin_R_C13  *  X_Squared  +  \ 

Sin_R“Cll)  *  X~Squared  +  i 
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Sin_R_C9)  *  X_Squared  + 

Sin_R~C7)  *  X~Squared  + 

Sin_R_C5)  *  X~Squared  + 

Sin_R  C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_ResuIt_l  *  Real(Input)  +  Real(Input) 
end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result~l  :  =  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Hod  Sin  R  7 term; 


function  Hod_Sin_R_6term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  ~  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >»  Pi_0ver  4  then 

InterResultO  :*  ReaT(Pi_0ver_2  -  Abs(Input)); 

X_Squared  : -""Inter  Result_0  *  Inter_Result_0; 

InterResultl  :»  T(((Cos~R_Cll  *  XSquared  + 

~  ~  Cos_R~C9)  *  X_Squared  + 

Cos~R~C7)  *  X_Squared  + 

Cos~R~C5)  *  X~Squared  + 

Cos_R~C3)  *  X  Squared; 

Inter_Result_l  :*  Inter_Result_l  +  T.O; 

If  Input  <=  -  Pi  0ver_4  then 

Inter_Result_T  :=  -  Inter_Result_l; 
end  if; 
else 

X_Squared  Input  *  Input; 

Inter_Result_l  :=  ((((Sin_R_Cll  *  X_Squared  + 

Sin_R~C9)  *  X_Squared  + 

Sin_R~C7)  *  X_Squared  + 

SinXC5)  *  X~Squared  + 

Sin_R~C3)  *  X~Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Real(Input)  +  Real(Input) 
end  if; 

if  Inter_Result_l  >1.0  then 
Inter_Result”l  :=  1.0; 
elsif  Int:er_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin  R  6term; 


function  Mod_Sin_R  5term  (Input  :  Radians)  return  Sin  Cos  Ratio  is 
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Inter_Result_0  5  Real; 

Inter_Result~l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=  Pi_0ver  4  then 

Inter_Result_0  :=*  ReaI(Pi_0ver_2  -  Abs(Input)); 

X  Squared  :=  Inter  Result~0  *  Inter_Result_0; 

Inter_Result_l  :*  f((Cos_R_C9  *  X_Squared  + 

Cos_R_C7)  *  X_Squared  + 

Cos~R_C5)  *  X_Squared  + 

C°S_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 

If  Input  <=  -  Pi  0ver_4  then 

Inter_Result_I  :=  -  Inter_Result_l; 
end  if; 
else 

X_Squared  :=*  Input  *  Input; 

Inter_Result_l  :=  (((Sin_R_C9  *  X_Squared  + 

Sin_R_C7)  *  X_Squared  + 

Sin_R_C5)  *  X_Squared  + 

Sin_R_C3)  *  X_Squared; 

Inter_Result_l  :»  Inter_Result_l  *_Real( Input)  +  Real(Input) 
end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :*  1.0; 
elsif  Ihter_Result_l  <  -1.0  then 
Inter  Result  1  7*  -1.0; 
end  if; 

Result  :«  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Resulti 
end  Mod  Sin  R  5term; 


function  Mod_Sin_R_4term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter~Result_l  ;  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=*  Pi_0ver  4  then 

Inter_Result_0  ReaT(Pi_0ver_2  -  Abs(Input)); 

X_Squared  j=  Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  7(Cos_R~C7  *  X_Squared  + 

Cos~R_C5)  *  X_Squared  + 

C°s_r:C3)  *  X~Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 

If  Input  <=  -  Pi  0ver_4-then 

Inter_Result_T  ;=  -  Inter_Result_l; 
end  if;  ~ 
else 

X_Squared  :=  Input  *  Input; 

Inter_Result_l  :=  ((Sin_R_C7  *  X_Squared  + 

Sin~R~C5)  *  X~Squared  + 
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Sin_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Real(Input)  +  Real(Input); 
end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Sin  R  4term; 


-  Modified  Taylor  Cosine  functions 

function  Mod_Cos_R_8term(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  j  Real; 

Inter_Result_l  :  Real; 

Mod_Input  :  Radians; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <*  Pi  0ver_4)  or  (Input  >-  3.0  *  Pi_0ver_4)  then 
if  Input  >  PT_0ver_2  then 
Modlnput  T*  Pi  -  Input; 
else 

Modlnput  :*  Input; 
end  if; 

X_Squared  :=•  Mod_Input  *  Mod_Input; 

InterResultl  :*  ((((((Cos_R_C15  *  XSquared  + 

Cos_R_C13)  *  X_Squared  + 

Cos_R~Cll)  *  X_Squared  + 

Cos_R_C9)  *  X_Squared  + 

Cos_R_C7)  *  X_Squared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R  C3)  *  X~Squared? 

Inter_Result  1  s*  Inter_ResuIt_l  +  1.0  ; 

If  Input  >  Pi  0ver_2  then 

Inter_ResuIt_l  ;=  -  Inter_Result_l; 
end  if; 

else 

Inter_Result_0  :=  Real(Pi_0ver_2  -  Input); 

X_Squared  s*  Inter  Result  0  *  Inter_Result_0; 

Inter  Result_l  :=  T(((((STn  R_C15  *  X  Squared  + 

Sin"R_C13)  *  X“Squared  + 

Sin~R~Cll)  *  X_Squared  + 

Sin_R~C9)  *  X_Squared  + 

Sin_R_C7)  *  X_Squared  + 

Sin_R_C5)  *  X~Squared  + 

Sin_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  *  InIer_Result_0  +  Inter_Result_0; 

end  if; 

If  Inter_Result_l  >  1.0  then 
Inter_Result~l  :=  1.0; 

elsif  Inter  Result  1  <  -1.0  then 


1 


] 
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Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  R  8term; 


function  Mod_Cos_R_7term(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  :  Radians; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <*  Pi  0ver_4)  or  (Input  >»  3.0  *  Pi_0ver_4)  then 
if  Input  >  Pl_0ver_2  then 
Modlnput  Pi  -  Input; 
else 

Mod_Input  :*  Input; 
end  if; 

XSquared  Hod_Input  *  Hod_Input; 

InterResultl  :«  (((((Cos_R~C13  *  XSquared  + 

CosJ^Cll)  *  X  Squared  + 

Cos_R~C9)  *  XSquared  + 

Cos_R_C7)  *  X_Squared  + 

Cos_R“C5)  *  X_Squared  + 

Cos_R~C3)  *  X  Squared; 

Inter_Result  1  :■  Inter_Result_l  +  T.O  ; 

If  Input  >  Pi  0ver_2  then 

Inter_ResuIt_l  :«  -  Inter_Result_l; 
end  if; 

else 

Inter_Result_0  :»  Real(Pi_0ver_2  -  Input); 

X_Squared  :=  Inter  Result_0  *  Inter_Result_0; 

InterResultl  :*  T((( (Sin_R_C13  *  XSquared  + 

Sin_R_Cll)  *  X_Squared  + 

Sin~R~C9)  *  X_Squared  + 

Sin_R_C7)  *  X_Squared  + 

Sin_R~C5)  *  XSquarod  + 

Sin_R™C3)  *  X_Squared ; 

Inter_Result_l  Inter_ResuIt_l  *  Inter_Result_0  +  Inter_Result_0; 

end  if; 

If  Inter_Result_l  >  1.0  then 
Inter_Result_l  1.0; 

elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  7-  -1.0; 

end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 

return  Result; 
end  Mod  Cos  R  7 term; 


function  Mod_Cos_R_6tero( Input  s  Radians)  return  Sin_Cos_Ratio  is 
Inter  Result  0  :  Real; 


a  ia  laum.  .a.. 
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Inter_Result  JL 
Mod_Input 
Result 
X  Squared 


Real; 

Radians; 

Sin  Cos_Ratio; 
Real; 


begin 

if  (Input  <=  Pi  0ver_4)  or  (Input  >=  3.0  «  Pi_0ver_4)  then 
if  Input  >  Pl_0ver_2  then 
Mod_Input  :=  Pi  -  Input; 
else 

Mod_Input  :*  Input; 
end  if; 

X_Squared  :»  Mod_Input  *  Mod_Input; 

Inter_Result_l  :■  ((((Cos_R_Cll  *  X_Squared  + 

Cos_R_C9)  *  X_Squared  + 

Cos~R_C7)  *  X~Squared  + 

Cos_R_C5)  *  X~Squared  + 

Cos_R_C3)  *  X_Squared; 

Inter_Result  1  :»  Inter_Result_l  +  1.0  ; 

If  Input  >  ?T  0ver_2  then 

Inter_ResuIt_l  :*  -  Inter_Result_l; 
end  if; 
else 

InterResultO  :»  Real(Pi_Over  2  -  Input); 

XSquared  :»_Inter  Result-0  *  Inter  Result_0; 

InterResultl  T(((Sin“R_Cll  *  I  Squared  + 

Sin~R_C9)  *  X_Squared  + 

Sin_R~C7)  *  XSquared  + 

Sin~R~C5)  *  XSquared  + 

SinjCC3)  *  X  Squared; 

Inter  Result  1  :»  Inter  Result  1  *  Inter  Result  0  +  Inter  Result  0; 
end  if; 

If  InterResultl  >  1.0  then 
InterResultl  :*  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Resu.lt_l  7*  -1.0; 
end  if; 

Result  j-  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  R  6tera; 


i 


m 


function  Mod_Cos_R_5ter«(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  j  Real; 

Inter_Result~l  :  Real; 

Modlnput  ~  :  Radians; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=  Pi  0ver_4)  or  (Input  >=  3.0  *  Pi_0ver_4)  then 
if  Input  >  Pl_Over_2  then 
Mod_Input  7-  Pi--  Input; 
else 

Mod_Input  :*  Input; 
end  ifj 


j 

i 


“■'**  l"J  *_v-  arv.  wvi  «r\j  rv  ..  w<  iru  »r\-  wvt  in.  */\.  jtvj  art.  Ai  ru  si.  »n.  s\#  a.  ru  w  iru  iAi  a,  “fit 
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Inter  Result  1 


X_Squared  :=  Mod_Input  *  Hod  Input; 
Inter_Result_l  :=*  (((Cos_R_c5  *  X_Squared  + 

Cos_R_C7)  *  X_Squared  + 
Cos_R_C5)  *  X_Squared  + 
Cos_R_C3)  *  X_Squared; 

:=  Inter_Result_l  +1.0  ; 

If  Input  >  Pi  0ver_2  then 

Inter_ResuIt_l  :*  -  Inter_Result_l; 
end  if; 
ilse 

Inter_Result_0  :*  Real(Pi_0ver  2  -  Input); 
XSquared  :«-Inter  Result_0  *  Inter_Result_0; 


Inter  Result  1 


T((Sin_R  C9  * 
Sin  R“C7)  * 
Sin"R“C5)  * 
Sin~R~C3)  * 
Inter  Result  1 


Inter_Result_l 
end  if; 

If  Inter_Result_l 
Inter~Result_l 
els if  InTer_Result 
Inter_Result_l 
end  if; 

Result  :■  Sin_Cos_Ratio(  Ic.terJResultl 
return  Result; 
end  Mod_Cos_R_5tem; 


X_Squared  + 
X_Squared  + 
X_Squared  + 
X_Squared; 
*~Inter  Result 


0  ■ 


>  1.0  then 
s-  1.0; 

1  <  -1.0  then 

r»  -1.0; 


); 


function  Hod_Cos_R_4ter«( Input  s  Radians)  return  Sin_Cos 

Inter  Result  O  :  Real; 

InterResultl  :  Real; 

Hodlnput  j  Radians; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 


begin 

if  (Input  <«  Pi  0ver_4)  or  (Input  >■  3.0  *  Pi_0ver_4) 
if  Input  >  Pl_0ver_2  then 
Mod_Input  7^  Pi--  Input; 
else 

Mod  Input  :»  Input; 
end  ifj 

XSquared  :■  Mod_Input  *  Mod_Input; 

Inter_Result_l  :*  ((Cos_R_C7-  *  X  Squared  + 

Cos~R-C5)  *  X_Squared  + 

CosJR  C3)  *  X~Squared; 
Inter_Result_l  j*  Inter_Iesult_l  +  1.0  ; 

If  Input  >  Pi  0ver_2  then 

Inter_ResuIt_l  T«  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :»  Real(Pi_0ver_2  -  Input); 
X_Squared  s«~Inter  Result~0  *  Inter_Result_0; 
Inter_Result_l  7(Sin_R_C7  *  X_Squared  + 

Sin-R-C5)  *  X-Squared  + 
Sin~R~C3)  *  X~Squared; 


Inter  Result  0; 


Ratio  is 


then 
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Inter  Result  1  :=  Inter  Result  1  *  Inter  Result  0  +  Inter  Result 
end  if; 

If  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if;  ~ 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  R  4 term; 


0; 


-  Modified  Taylor  tangent  functions 

function  Mod_Tan_R_8term  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_R_8term(Input))  / 

Tan_Ratio(Cos_R_8 term(Input ) ) ; 
end  Mod  Tan  R  8 term; 


function  Mod_Tan_R_7 term  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_R_7tera(Input))  / 

Tan_Ratio(Cos_R_7  tera(Input ) ) ; 
end  Mod_Tan  R_7term; 

# 

function  Mod_Tan_R_6tera  (Input  :  Radians)  return  Tan  Ratio  is 
begin 

return  Tan_Ratio(Sin_R_6tera(Input))  / 

Tan_Ratio(Cos_R~6t*r«(Input ) ) • 
end  Mod  Tan  R  6tera; 


function  Mod_Tan_R_5tera  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_R_5tera(Input))  / 
Tan~Ratio(Cos_R_5term(Input)) ; 
end  Mod_Tan_R_5 tera; 


function  Mod_Tan_R_4tera  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_R_4tera(Input))  / 
Tan_Ratio(Cos~R~4tera(Input ) ) ; 
end  Mod_Tan_R_4tera; 

end  Taylor_Radian_0perations; 


3. 3. 6. 8. 9. 7. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


inenfiaramnru  Sul mrvtv 


Auruimn^ 
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3. 3. 6. 8. 9. 7. 9. 1.8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 7. 9. 1.9  LLCSC  DESIGN 


None. 


3.3.6.8.9.7.9.1.10  UNIT  DESIGN 


None. 


3. 3. 6. 8. 9. 7. 9. 2  TAYLOR_DEGREE_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P841-0) 

This  generic  package  contains  functions  providing  Taylor  polynomial  solutions 
for  a  set  of  trigonometric  functions.  This  package  is  designed  to  handle  units 
of  degrees. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

Catalog  _# 

Sin  D  8term 

P842-0 

Sin  D  7 term 

P843-0 

Sin  D  6 term 

P844-0 

Sin  D  5 term 

P845-0 

Sin  D  4term 

P867-0 

Cos  D  8term 

P846-0 

Cos  D  7 term 

P847-0 

Cos  D  6 term 

P848-0 

Cos  D  5 term 

P849-0 

Cos  D  4 term 

P850-0 

Tan  D  8 term 

P851-0 

Hod~Sln  D  8 term 

P852-0 

Mod  Sin  D  7 ‘era 

P853-0 

Mod  Sin  D  6  term 

P854-0 

Mod  Sin~D  5 term 

P855-0 

Mod  Sin  D  4 term 

P856-0 

Mod~Cos~D_ 8  term 

P857-0 

Mod  Cos  D~7term 

P858-0 

Mod  Cos  D  6term 

P859-0 

Mod  Cos~D  5 term 

P860-0 

Mod~Cos"*D  4  term 

P861-0 

Mod  Tan~D~8ter* 

P862-0 

Mod  Tan  D  7  term 

P863-0 

Mod  Tan  D  6 term 

P864-0 

Mod  Tan  D~5term 

P865-0 

Mod~Tan~D~4  term 

P866-0 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 7. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R222. 


3. 3. 6. 8. 9. 7. 9. 2. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 7. 9. 2. 3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

Degrees 

Floating  point 

Allows  floating  point  representation  of 
degree  measurements. 

Real 

Floating  point 

General  floating  point  representation. 

Sin  Cos  Ratio 

Floating  point 

Represents  sines  and  cosines. 

TanRatlo 

Floating  point 

Represents  tangent  values. 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value  |  Description  | 

1  Pi 

|  Degrees 

constant  |  constant  value  Pi  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

|  »*" 

1 

|  function  j 
1  1 

Overloaded  operator  to  multiply  degrees  *  degrees 
yielding  a  real  result. 

FORMAL  PARAMETERS: 
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The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


Function 


|  Name 

Type 

|  Description 

1 

|  Input 

Degrees 

|  Input  for  sine  computation 

1 

1 

1  Input 

Degrees 

1 

|  Input  for  cosine  computation 

1 

1 

l 

j  Input 

Degrees 

|  Input  for  tangent  computation 

1 

1 

1 

1 

Sine 

Functions 

Cosine 

Functions 

Tangent 

Functions 


3. 3. 6. 8. 9. 7. 9. 2. 4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


© 
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j  Name 

Type 

Value 

Description  | 

Sin  D  C3 

constant 

-31  348.4915 

3rd  term 

coefficient 

Sin  D  C5 

constant 

145  551.339 

5th  term 

coefficient 

Sin  D  C7 

constant 

-402  186  871.0 

7th  terra 

coefficient 

Sin  D  C9 

constant 

18  337  520  600.0 

9th  terra 

coefficient 

Sin  D  Cll 

constant 

-547  254  221  000.0 

11th  term 

coefficient 

Sin_D_C13 

constant 

11_508_293_600_000. 0 

13th  term 
coefficient 

Sin  D  C15 

constant 

-173  518  597  000  000.0 

15th  terra 

coefficient 

Cos  D  C2 

constant 

-1  641.40317 

3rd  term 

coefficient 

Cos  D  C4 

constant 

449  134.064 

5th  term 

coefficient 

Cos  D  C6 

constant 

-49  136  395.8 

7th  term 

coefficient 

Cos_D_C8 

constant 

2_880_451_290.0 

9th  term 
coefficient 

CosDCIO 

constant 

-105_066_264_000 . 0 

11th  term 
coefficient 

Cos_D_Cl2 

constant 

2_612_97 1_200_000 . 0 

13th  tern 
coefficient 

Cos_D_Cl4 

constant 

-47_131_200_400_000 . 0 

15th  term 
coefficient 

Tan  D  C3 

constant 

62  969.9829 

3rd  term 

coefficient 

Tan  D  C5 

constant 

82  328  821.4 

5th  terra 

coefficient 

Tan  D  C7 

constant 

1.09349  829E11 

7th  term 

coefficient 

Tan  D  C9 

constant 

1.45527  752E14 

9th  term 

coefficient 

Tan  D  Cll 

constant 

1.93616  001E17 

11th  term 

coefficient 

Tan  D  C13 

constant 

2.57600  101E20 

13th  term 

coefficient 

Tan  D  C15 

constant 

3.42729  477E23 

15th  term 

coefficient 

3. 3. 6. 8. 9. 7. 9. 2. 5  PROCESS  CONTROL 


Not  applicable. 
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3. 3. 6. 8. 9. 7. 9. 2. 6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials . Taylor_Series ) 
package  body  Taylor_Degree_Operations  is 

-  The  Sine  constants  are  used  in  the  Taylor  operations  for  computing 

—  the  sine.  The  Cosine  constants  are  used  in  computing  cosines.  In 

—  the  Modified  Taylor  operations,  however,  both  sets  of  constants  are 

—  used.  They  are  named  to  correspond  to  the  power  of  X  (Input)  with 

—  which  they  are  termed. 


Sin_D_Cl 

Sin_D~C3 

Sin_D_C5 

Sin~D_C7 

Sin_D_C9 

Sin_D_Cll 

Sin_D_C13 

Sin  D  C15 


constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 


1.74532_92e-02; 
-8 . 86096_158e-07 ; 
1.34960  162e-ll; 
-9.78838  484e-17; 
4 . 14126~699e-22 ; 
-1.14680  931e-27; 
2.23780~628e-33; 
-3.13088  457e-39; 


C°s_D_C0 

Cos_D_C2 

Cos_D_C4 

Cos~D_C6 

Cos~D_C8 

Cos_D_C10 

Cos_D_C12 

Cos  D~C14 


constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 


1.74532_92e-02; 
-1 . 52308_710e-04 ; 
:*  3.86632“386e-09; 
-3.92583“l99e-14; 
2 . 13549~430e-19 ; 
-7 . 22787~516e-25 ; 
1.66798~234e-30; 
-2.79173  888e-36; 


Tan  D  Cl  :  constant 
Tan~D_C3  :  constant 
Tan_D_C5  :  constant 
Tan~D_C7  :  constant 
Tan~D_C9  :  constant 
Tan_D_Cll  :  constant 
Tan~D_C13  :  constant 
Tan  D  C15  :  constant 


:«  1.74532  92e-02; 

1.77219"231e-06 
:»  2.15936~259e-10 
2.66244"068e-14 
3.28653  633e-18 
4.05735~804e-22 
:*  5.00907  561e-26 
:»  6. 18404~282e-30 


-  Taylor  Sine  functions 

function  Sin_D_8term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

X_Squared  Input  *  Input; 

Inter  Result  :=  ((((((Sin_D  C15  *  X  Squared  + 

Sin_D“Cl3)  *  X_Squared  + 

SinjTcil)  *  X_Squared  + 

Sin~D”C9)  *  XSquared  + 

Sin_D~C7)  *  X”Squared  + 

Sin_D_C5)  *  X" Squared  + 
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Sin  D_C3)  *  X_Squared; 

Inter_Result  :=  Inter_ResuIt  *  Real(Input)  + 
(Degrees(Sin_D_Cl)  *  Input); 
if  Inter_Result  >1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin  D  8term; 


function  Sin  D  7 term  (Input  :  Degrees)  return  Sin  Cos  Ratio  is 


Inter_result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_5quared  :  Real; 


begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  (((((Sin_D_C13  *  X_Squared  + 

SinjTcll)  *  X_Squared  + 
Sin_D~C9)  *  X~Squared  + 
Sin_D~C7)  *  X_Squared  + 
Sin_D~C5)  *  X_Squared  + 
Sin_D~C3)  *  X  Squared; 
Inter_Result  i*  Inter_Result  *  Real (Input)  + 

( Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  :**  1.0; 
elsif  Inter_Result  <  -1.0  then 
InterResult  :■  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin  D  7 term; 


function  Sin_D_6term  (Input  ;  Degrees)  return  Sin_Cos_Ratio  is 

Inter_result  s  Real; 

Result  :  Sin  Cos_Ratio; 

X  Squared  :  Real; 

begin 

X_Squared  :■  Input  *  Input; 

Inter  Result  :=»  ((((Sin_D_Cll  *  X_Squared  + 

Sin~D~C9)  *  X~Squared  + 

Sin~D~C7)  *  X~Squared  + 

Sin~D~C5)  *  X~Squared  + 

Sin_D~C3)  *  X“Squared; 

Inter_Result  s*  Inter_ResuIt  *  Real(Input)  + 

(Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  thin 
Inter~Result  :*  1.0; 
elsif  Inter  Result  <  -1.0  then 
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Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin  D  6term; 


function  Sin_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  s  Real; 

begin 

X_Squared  :»  Input  *  Input; 

Inter_Result  :*  (((Sin_D_C9  *  X  Squared  + 

Sin_D_C7)  *  X^Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin~D_C3)  *  X_Squared; 

InterResult  :*  Inter_Result  *  Real(Input)  + 

(Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  :*  1.0; 
elsif  Inter_Result  .<  -1.0  then 
Inter_Result  :«  -1.0; 
end  if; 

Result  :»  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_D_5term; 


function  Sin_D_4ter»  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_result  s  Real; 

Result:  :  Sin  Cos_Ratio; 

X_Squared  s  Real; 

begin 

X_Squared  Input  *  Input; 

Inter__Result  s-  ((Sin_D_C7  *  X_Squared  + 

Sin~D_C5)  *  X_Squared  + 

Sin~D~C3)  *  X~Squared; 

Inter_Result  :»  Inter_Eesult  *  Real(Input)  + 

( Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  :■  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Reiult  ju  -1.0; 
end  if; 

Result  :»  Sin_Cos_Ratio(  Inter_Resjlt  ); 
return  ResultT 
end  Sin  D  4term; 


-  Taylor  Cosine  functions 

function  Cos_D_8term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
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Inter_result  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Degrees ; 

begin 

If  Input  >  90.0  then 

Mod_Input  :=*  180.0  -  Input; 

Else 

Mod_Input  :  =  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Hod_Input; 

Inter_Result  :*  ((((((Cos_D~C14  *  X_Squared  + 

Cos_D~C12)  *  X~Squarad  + 

Cos_D~ClO)  *  X~Squared  + 

Cos_D~C8)  *  XjSquared  + 
CosTm*)  *  X~Squared  + 
Cos~D_C4)  *  X~Squared  + 
Cos  D_C2)  *  X_Squared; 
Inter_Result  :=  Inter_ResuIt~+  1.0; 

If  Input  >  90.0  then 

Inter_Result  s-  -  Inter_Result; 
end  if; 

if  InterResult  >  1.0  then 
Inter_Result  1.0; 
elsif  Inler  Result  <  -1.0  then 
Inter_Result  :»  -1.0; 
end  if; 

Result  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  D_8term; 


function  Cos_D_7term  (Input  :  Degrees)  return  SinCosRatio  is 

Inter_result  :  Real; 

Mod_Input  :  Degrees; 

Result  s  Sin_Cos_Ratio; 

XSquared  :  Degrees! 

begin 

If  Input  >  90.0  then 

Mod_Input  :*  180.0  -  Input; 

Else 

Mod_Input  ;»  Input; 
end  ifj 

X_Squared  :»  Hod_Input  *  Mod_Input; 

Inter_Result  :=«  (((((Cos_D_Cl2  *  X_Squared  + 

Cos~D_C10)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

C°s_D>)  *  X_Squared  + 

Cos_D_C2)  *  X_Squared; 

Inter_Result  :»  Inter_Result  +  1.0;” 

If  Input  >  90.0  then 

Inter  Result  :*  -  Inter  Result; 
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end  if; 

if  Inter_Result  >  1.0  then 
InterJResult  :=  1.0; 
eisif  InterJResult  <  -1.0  then 
InterJResult  :*  -1.0; 
end  if; 

Result  :*  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  D  7 term; 


function  Cos_D_6term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Interresult  :  Real; 

Hod_Input  :  Degrees ; 

Result  :  Sin_Cos_Ratio; 

XSquared  :  DegreesJ 

begin 

If  Input  >  90.0  then 

Mod_Input  j-  180.0  -  Input; 

Else 

Hod_Input  :*  Input; 
end  if? 

XSquared  :■  Mod_Input  *  Mod  Input; 

Inter_Result  :»  (<((Cos_D_Cl0  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 

Cos_D_C6)  *  ^Squared  + 

Cos~D_C4)  *  X~Squared  + 

Cos_D~C2)  *  X~Squared ; 

Inter_Result  :«  Inter_ResuIt  +  l.Oj 
If  Input  >  90.0  then 

Inter  P.esult  :■  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :»  1.0; 
eisif  InterResult  <  -1.0  then  # 

Inter_Result  :*  -1.0; 
end  if; 

Result  Sin_Cos_Ratio(  Inter_Resu7  .  ); 
return  ResultJ 
end  Cos  D  6 term; 


function  Cos  D  5term  (Input  s  Degrees)  return  Sin_Cos_Ratio  is 


Inter_result  :  Real; 

Mod_Input  s  Degrees; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Degrees; 

begin 

If  Input  >  90.0  then 

Mod_Input  :»  180.0  -  Input; 
Else 

ModJTnput  :=  Input; 
end  if; 


CAMP  Software  Detailed  Design  Document 


Page  1526 


X_Squared  :=  Mod_Input  *  Mod_Input; 
Inter_Kesult  :=  (((Cos_D_C8  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 
Cos_D_C4)  *  X_Squared  + 
Cos_D_C2)  *  X_Squared; 
InterJResult  :=  Inter_Result  +  1.0; 

If  Input  >  90.0  then 

Inter_Result  :=  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=*  1.0; 
elsif  Int:er_Result  <  -1.0  then 
Inter_Result  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result;  _ 
end  Cos  D  5 term; 


function  Cos_D_4term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Interresult  :  Real; 

Mod_Input  :  Degrees; 

Result  s  Sin_Cos_Ratio; 

XSquared  :  Degrees; 

begin 

If  Input  >  90.0  then 

Hod_Input  :*  180.0  -  Input; 

Else 

Modlnput  :■  Input; 
end  if; 

X_Squared  ;»  Modlnput  *  Mod_Input; 

InterResult  ((Cos_D_C6  *  X_Squared  + 

Cos_D_C4)  *  X_Squared  + 

CosJ)_C2)  *  X_Squared; 

Inter_Result  :*  Inter_Result  +  1.0; 

If  Input  >  90.0  then 

Ir»ter_Result  :»  -  Inter_Result; 
end  if;  ~ 

if  Inter  Result  >  1.0  then 
Inter_Result  1.0; 
elsif  InlerJResult  <  -1.0  then 
Inter_ReIult  :*  -1.0; 
end  if;  ~ 

Result  :*  Sin_Cos_Ratio(  Inter_Result  ); 
return  ResultJ  - 
end  Cos  D  4term; 


-  Taylor  Tangent  fuctions 

function  Tan_D_8term  (Input.  :  Degrees)  return  Tan_Ratio  is 

Inter_result  :  Real; 

Result  :  Tan  Ratio; 
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X_Squared  :  Real; 
begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ( ( ( ( ( (Tan_D_C15  *  X_Squared  + 

Tan_D_Cl3)  *  X_Squared  + 
Tan_D_Cil)  *  X_Squared  + 
Tan_D_C9 )  *  X_Squared  + 

Tan_D_C7)  *  X_Squared  + 
Tan_D_C5 )  *  X_Squared  + 

Tan_D~C3)  *  X_Squared; 

Result  :=  Tan_Ratio(Inter_Result)  *  Tan_Ratio(Input)  + 
Tan_Ratio( Input)  *  Tan_D_Cl; 

return  Result; 
end  Tan  D  8 term; 


-  Modified  Taylor  Sine  functions 

function  Mod_Sin_D_8term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  s  Real; 

Inter_Result_l  s  Real; 

Result  :  Sin  CosJRatio; 

XSquared  :  Real; 

begin 

if  abs(Input)  >*  45.0  then 

Inter_Result_0  :*  Real(90.0  -  Abs(Input)); 

X_Squared  s*  Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  :=*  T(((((Cos_D_C14  *  X_Squared  + 

Cos~D~C12)  *  X_Squared  + 

Cos~D_ClO)  *  X_Squared  + 

CosjTcS)  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos_D_C4)  *  X_Squared  + 

Cos_D_C2)  *  X_Squared; 
Inter_Result_l  :*  Inter_ResulI_l  +  l.Oj 
If  Input  <=  -  45.0  then 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 

else 

X_Squared  :=  Input  *  Input; 

Inter_Result_l  :*  ((((((Sin_D_C15  *  X_Squared  + 

Sin_D_C13)  *  X_Squared  + 

Sin~D_Cll)  *  X~Squared  + 

Sin_D_C9)  *  X~Squared  + 

Sin_D~C7)  *  X_Squared  + 

Sin~D_C5)  *  X_Squared  + 

Sin_D^C3)  *  X  Squared; 

Inter_Result_l  :=  Inter  Result_l  *  ReaT(Input)  + 

(Degrees (Sin_D_Cl)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 

elsif  Inter  Result  1  <  -1.0  then 
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Inter_Result_l  :=  -1.0; 
end  if;  ~ 

Result  :=  Sin_Cos_Ratio(  Inter  Result  1); 
return  Result; 
end  Mod_Sin_D_8term; 


function  Mod_Sin_D_7 term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >*  45.0  then 

Inter_Result_0  :*  Real(90.0  -  Abs(Input)); 

X_Squared  :=  Inter_Result_0  *  Inter  Result  0; 

Inter__Result_l  :=  (((((Cos_D_C12  *~X_Squared  + 

Cos_D_C10)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos_D_C4)  *  X_Squared  + 

Cos_D  C2)  *  X  Squared; 

.  Inter_Result  1  :»  InterResuIt  1  +  l.U; 

If  Input  <«  -  45.0  then- 

Inter  Result  1  s«-  Inter  Result  1; 
end  if;  ~ 

else 

X_Squared  :*  Input  *  Input; 

Inter_Result_l  (((((Sin_D_C13  *  X_Squared  + 

Sin  D  Cll)  *  X_Squared  + 

Sin-D-C9)  *  X_Squared  + 

Sin_D_C7)  *  X~Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin_D  C3)  *  X_Squared; 

Inter_Result_l  Inter  Result  1  *  Real(Input)  + 

(Degrees(Sin  D_cT)  *  Input); 

end  if; 

if  Inter_Result_l  >1.0  then 
Inter_Result_l  1.0; 

elsif  Inter  Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 

end  if;  ~ 

Result  :a  Sin_Cos_Ratio(  Inter  Result  1  ); 

return  Result!  “ 

end  Mod_Sin  D_7term; 


function  Mod_Sin_D_6term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Interjtesult_l  :  Real; 

Result  s  Sin  Cos_Ratio; 

X_Squared  s  Real; 


begin 
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if  abs(Input)  >=  45.0  then 

Inter_Result_0  :=  Real(90.0  -  Abs(Input)); 
X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 
Inter_Result_l  :=  ((((Cos~D_C10  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 
Cos_D_C6)  *  X_Squared  + 
Cos_D_C4)  *  X_Squared  + 
Cos_D_C2)  *  X  Squared; 
Inter_Result_l  :=  Inter_Result_l  +  T.0; 

If  Input  <=  -  45.0  then 

Inter_Result_l  -  Inter_Result_l; 
end  if; 
else 

X_Squared  :*  Input  *  Input; 

Inter_Result_l  :=  ((((Sin_D_Cll  *  X_Squared  + 

Sin~D_C9)  *  X_Squared  + 
Sin_D_C7)  *  X~Squared  + 
Sin_D_C5)  *  X_Squared  + 
Sin~D~C3)  *  X_Squared; 

Inter_Result_l  :=  Inter  Result_l  *  Real(Input)  + 
( Degrees (Sin_D_Cl)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :*  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
InterResultl  :»  -1.0; 
end  if; 

Result  :»  Sin_Cos_Ratio(  Inter  Result  l  ); 
return  Result; 
end  Mod  Sin  D  6term; 


function  Mod_Sin_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  ;  Real; 

Result  :  Sin  CosRatio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=  45.0  then 

Inter_Result_0  :*  Real(90.0  -  Abs(Input)); 

X_Squared  :*~Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  :*  X((Cos_D_C8  *  X_Squared  + 

Cos~D~C6)  *  X~Squared  + 

Cos_D_C4)  *  X_Squared  + 

Cos_D_C2)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 

If  Input  <=■  -  45.0  then" 

Inter_Result_l  :=  -  Inter_Result_l; 

end  if; 

else 

X_Squared  j=  Input  *  Input; 

Inter_Result_l  :*  (((Sin_D_C9  *  X_Squared  + 

Sin~D~C7)  *  X_Squared  + 

Sin_D~C5)  *  X_Squared  + 

Sin_D~C3)  *  X_Squared; 
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Inter_Result_l  :=  Inter_Result_l  *  Real(Input)  + 
(Degrees (Sin_D_Cl)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Hod  Sin  D  5term; 


function  Mod_Sin_D_4term  (Input  ;  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result~l  :  Real; 

Result  ~  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=*  45.0  then 

Inter_Result_0  :=*  Real(90.0  -  Abs(Input)); 

XSquared  :»  Inter  ResultO  *  Inter_Result_0; 

Inter_Result_l  ^(Cos_D_C6  *  X_Squared. + 

Cos_D_C4)  *  X_Squared  + 

CosJ)_C2)  *  X_Squared; 

Inter_Result_l  :*  Inter_Result_l  +  1.0; 

If  Input  <»  -  45.0  then 

Inter  Result  l  :■  -  Inter_Result_l; 
end  if; 
else 

XSquared  ;=  Input  *  Input; 

Inter_Result_l  ;=  ((Sin_D_C7  *  X_Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter  Result_l  *  Real(Input)  + 

(Degrees (Sin_D_cT)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter~Result~l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Sin  D  4term; 


-  Modified  Taylor  Cosine  functions 

function  Mod_Cos_D_8term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  : 

Inter_Result_l  : 

Mod_Input  ~  : 

Result  : 


Real; 

Real; 

Degrees ; 

Sin  Cos  Ratio; 
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X_Squared  :  Real; 
begin 

if  (Input  <=  45.0)  or  (Input  >=  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input} 
else 

Mod_Input  :=  Input; 
end  ifj 

X_Squared  :=  Hod_Input  *  Mod_Input; 

Inter_Result_l  :*  ((((((Cos_D_Cl4  *  X_Squarad  + 

Cos_D~C12)  *  X~Squared  + 

Cos_D_C10)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 
Cos_D_C6)  *  X_Squared  + 
Cos~D_C4)  *  X_Squared  + 
CosJ3~C2)  *  X~Squared; 
Inter_Result  1  :*  Inter_ResuTt_l  +  lTO  ; 

If  Input  >  9(5.0  then 

Inter_Result_l  :*  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  s*  Real (90.0  -  Input); 

X_Squared  :«  Inter  Result  0  *  Inter_Result_0; 

Inter  Result  1  :*  T(((((Sln  D  C15  *  XSquared  + 

Sin“D“C13)  *  XSquared  + 
Sin_D_Cll)  *  X_Squared  + 
Sin_D_C9)  *  X_Squared  + 
Sin_D~C7)  *  X_Squared  + 
Sin_D_C5)  *  XSquared  + 
Sin~D_C3)  *  X_Squared; 

InterResultl  :»  Inter_ResulT_l  *  Inter_Result_0  + 
(Sin_D_Cl  *  Inter_Result_0); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  ;=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=*  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result! 
end  Mod  Cos  D  8 term; 


function  Mod_Cos_D_7term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  s  Degrees; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=»  45.0)  or  (Input  >*  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 
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Mod_Input  :=  Input; 

end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result_l  :=  <((((Cos_D_C12  *  X_Squared  + 

Cos_D^C10)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 
Cos_D_C6)  *  X_Squared  + 
Cos_D_C4)  *  X_Squared  + 
Cos_D_C2)  *  X  Squared; 

Inter_Result_l  :=  Inter_Result_l  +  T.O  ; 

If  Input  >  90.0  then 

Inter_Result_l  :«  -  Inter_Result_l; 

end  if; 
else 

Inter_Result_0  :=  Real(90.0  -  Input); 

X_Squared  :*  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  (((((Sin_D_Cl3  *  XSquared  + 

Sin_D_Cll)  *  X_Squared  + 

Sin_D_C9)  *  X_Squared  + 
Sin_D_C7)  *  X_Squared  + 
Sin_D_C5)  *  X_Squared  + 

Sin_D  C3)  *  X_Squared; 

Inter_Result_l  Inter_ResuIt  1  *  Inter_Result_0  + 

(Sin_D_Cl  *  Inter_Result_0); 

end  if; 

if  Inter_Result_l  >1.0  then 

Inter_Result_l  :*  1.0; 
elsif  Inter_Result_l  <  -1.0  then 

Inter_Result_l  -1.0; 

end  if;  ~  ~ 

Result  j*  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  D  7 term; 


function  Mod_Cos_D_6term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 


Inter_Result_0 

Inter_Result_l 

Mod_Input 

Result 

X_Squared 


Real; 

Real; 

Degrees ; 

Sin  Cos_Ratio; 
Real; 


begin 

if  (Input  <*  45.0)  or  (Input  >=  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X  Squared  :=  Mod_Input  *  Mod_Input; 
Inter_Result_l  :=  ((((Cos_D_Cl0  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 
Cos_D_C6)  *  X_Squared  + 
Cos_D~C4)  *  X_Squared  + 
Cos_D_C2)  *  X~Squared; 
Inter  Result  1  :=  Inter  Result  1  +  1.0  ; 
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If  Input  >  90.0  then 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :=  Real(90.0  -  Input); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 
Inter_Result_l  :=  ((((Sin_D_Cll  *  X_Squared  + 

Sin_D_C9)  *  X_Squared  + 
Sin_D_C7)  *  X_Squared  + 
Sin~D_C5)  *  X_Squared  + 
Sin_D_C3)  *  X~Squared; 

Inter_Result_l  Inter_Result_l  *  Inter_Result_0  + 
~  (Sin_D_Cl  *  Inter_Result_0) ; 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result~l  j*  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  7=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result? 
end  Mod  Cos  D  6 term; 


function  Mod_Cos_D_5term(Input  s  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  ;  Real; 

InterResultl  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin  Cos_Ratio; 

XSquared  j  Real; 

begin 

if  (Input  <=*  45.0)  or  (Input  >*  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  ;=  180.0  -  Input; 
else 

Mod_Input  :*  Input; 
end  if? 

X_Squared  :*  Mod_Input  *  Mod  Input; 

Inter_Result_l  j*  (((Cos_D_CS  *  X_Squared  + 

Cos_D__C6''  *  X_Squared  + 

Cos?D?C4)  *  X_Squared  + 

Cos]]D_C2)  *  X^Squared; 

Inter_Result  1  :=  Inter_Result_l  +  1.0  ; 

If  Input  >  9(5.0  then 

Inter_Result_l  ;*  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :=  Real(90.0  -  Input); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  (((Sin_D_C9  *  X_Squared  + 

Sin_D_C7)  *  X_Squared  + 

Sin_D_C5)  *  X^Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  *”lnter_Result_0  + 
(Sin_D_Cl  *  Inter_Result  0); 
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end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  D  5term; 


function  Mod_Cos_D_4term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=  45.0)  or  (Input  >=  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :■  Input; 
end  ifj 

XSquared  :»  Mod_Input  *  Mod_Input; 

Inter  Result  l  :=*  ((Cos  D_C6  *  X  Squared  + 

Cos"D"C4)  *  XSquared  + 

Cos_D~C2)  *  XSquared; 

Inter_Result  1  :=•  Inter_Result_l  +  1.0  ; 

If  Input  >  9C.0  then 

Inter_Result_l  :*  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :=  Real(90.0  -  Input); 

X^Squared  :  =«_In  ter_Resul t_0  *  InterJResult_0; 

Inter  Result  1  :=  ((Sin  D~C7  *  X  Squared  + 

Sin“D“C5)  *  X'Squared  + 

Sin_D~C3)  *  X_Squared; 

Inter_Result_l  :=  Inter~Result_l  *  Inter_Result_0  + 
(Sin_D_Cl  *  Inter_Result_0); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Resuit_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  D  4term; 


—  Modified  Taylor  Tangent  functions 

function  Mod  Tan  D  8term  (Input  s  Degrees)  return  Tan_Ratio  is 
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begin 

return  Tan_Ratio(Sin_D_8term(Input))  / 
Tan_Ratio(Cos_D_8term(Input)); 
end  Mod  Tan  D  8 term; 


function  Mod_Tan_D_7term  (Input  :  Degrees)  return  Tan_Ratio  is 
oegin 

return  Tan_Ratio(Sin_D_7term(Input))  / 

Tan_Rat io(Cos_D_7 term(Input ) ) ; 
end  Mod  Tan  D  7 term; 


function  Mod_Tan_D_6term  (Input  :  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_6term(Input))  / 
Tan_Ratio(Cos_D_6term(Input)) ; 
end  Mod  Tan  D  6 term; 


function  Mod_Tan_D_5term  (Input  5  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_5term(Input))  / 
Tan_Ratio(Cos_D_5term(Input)) ; 
end  Mod  Tan  D  5 term; 


function  Mod_Tan_D_4term  (Input  :  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_4term(Input))  / 
Tan_Ratio(Cos_D~4term(Input)) ; 
end  Mod_Tan_D_4term; 

end  Taylor_Degree_Operations; 


3. 3. 6. 8. 9. 7. 9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 9. 7. 9. 2. 8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 7. 9. 2. 9  LLCSC  DESIGN 


None. 


3.3.6.8.9.7.9.2.10  UNIT  DESIGN 


None. 
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3. 3, 6. 8. 9. 7. 9. 3  TA1 L0R_NATURAL_L0G  PACKAGE  DESIGN  (CATALOG  #P868-0) 

This  generic  package  contains  functions  providing  Taylor  polynomial  solutions 
for  the  natural  log  function. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _#  | 

|  Nat  Log  8 term 

|  P869-0  | 

j  Nat  Log  7  term 

|  P870-0  | 

|  Nat  Log  6term 

!  P871-0  j 

|  Nat  Log  5term 

1  P872-0  j 

j  Nat_Log_4term 

|  P873-0  | 

The  decomposition 

for  this  part  is  the  same  as  that  shown  in 

the  Top-Level 

Design  Document. 

3. 3. 6. 8. 9. 7. 9. 3.1 

REQUIREMENTS  ALLOCATION 

This  part  meets  CAMP  requirement  R222. 

3. 3. 6. 8. 9. 7. 9. 3. 2 

LOCAL  ENTITIES  DESIGN 

None. 

3. 3. 6. 8. 9. 7. 9. 3. 3 

INPUT/OUTPUT 

GENERIC  PARAMETERS: 

Data  types: 

/ 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

|  Name  | 

Type  |  Description 

1 

|  Inputs  j 

Floating  point  j  Floating  point  input  to 

the  function  | 

j  Outputs  j 

Floating  point  j  Floating  point  output  to 

the  function  j 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 
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|  Function 

Name 

Type  | 

Description  | 

|  Natural  Log 
j  Functions 

Input 

Floating  | 
Point  j 

Input  upon  which  to  apply  the  funtion  | 

1 

3. 3. 6. 8. 9. 7. 9. 3. 4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  |  Type  |  Value  |  Description  | 


|  Nat  Log  Cl 

1 

constant 

1 

2.0 

1 

Coefficient 

for 

1st 

term 

j  Nat_Log_C3 

constant 

0.66666  6666 

1 

Coefficient 

for 

3rd 

term 

j  Nat_Log_C5 

1 

constant 

1 

0.4 

1 

Coefficient 

for  5th 

term 

j  Nat  Log_C7 

1 

constant 

0.28574  1428 

1 

Coefficient 

for 

7th 

term 

j  Nat  Log  C9 

1 

constant 

1 

0.22222  2222 

1 

Coefficient 

for 

9th 

term 

|  Nat_Log_Cll 

1 

constant 

! 

0.18181  8182 

Coefficient 

for 

11th 

terra 

j  Nat  Log~Cl3 

1 

constant 

i 

0.15384~6153 

1 

Coefficient 

for 

13  th 

term 

|  Nat_Log_C15 

1 

constant 

i 

0.13333  3333 

! 

Coefficient 

for 

15th 

term 

3. 3. 6. 3. 9. 7. 9. 3. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 7. 9. 3. 6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials. Taylor_Series) 
package  body  Taylor_Natural_Log  is 


Nat_Log_Cl  : 
Nat_Log_C3  : 
Nat_Log~C5  : 
Nat_Log_C7  : 
Nat~Log~C9  : 
Nat~Log_Cll  : 
Nat~Log~C13  : 
Nat_Log_C15  : 


constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 


:*  2.0* 

:«  o! 66666_6666; 

0.4; 

:=.  0.28574J428; 
:=  0 . 22222_2222 ; 
:=  0.18181  8182; 
:=  0. 15384~6153 ; 
:=  0.13333  3333; 


function  Nat_Log_8term  (  Input  :  Inputs  )  return  Outputs  is 


Inter_result 

Result 

Mod_Input 

Mod_Squared 


Inputs; 

Outputs; 

Inputs; 

Inputs; 
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begin 

Mod_Input  :=  (Input  -  1.0)/(Input  +  1.0); 

Mod_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  ((((((Nat_Log_C15  *  Mod_Squared  + 

Nat~Log_C13)  *  Mod_Squared  + 

Nat_Log_Cll)  *  Mod_Squared  + 

Nat_Log_C9)  *  Mod_Squared  + 

Nat~Log_C7)  *  Mod_Squared  + 

Nat_Log_C5)  *  Mod_Squared  + 

Nat_Log_C3)  *  Mod_Squared; 

Result  :=  (Inter_Result  *  Mod_Input)  +  (Mod_Input  *  Nat_Log_Cl); 

return  Result; 
end  Nat_Log_8term; 


function  Nat_Log_7term  (  Input  :  Inputs  )  return  Outputs  is 

Inter_result  :  Inputs; 

Result  :  Outputs; 

Mod_Input  :  Inputs; 

Mod_Squared  :  Inputs; 

begin 

Mod_Input  :=«  (Input  -  1.0)/(Input  +  1.0); 

Mod_Squared  :*  Mod  Input  *  Mod^Input; 

InterResult  :*  (^(((Nat_Log_C13  *  ModSquared  + 

Nat_Log_Cll)  *  Mod~Squared  + 

Nat_Log_C9)  *  ModSquared  + 

Nat_Log_C7)  *  ModSquared  + 

Nat~Log_C5)  *  ModSquared  + 

Nat_Log~C3)  *  ModSquared; 

Result  :*  (Inter_Result  *  Mod_Input)  +  (Mod_Input  *  Nat  Log  Cl); 
return  Result; 
end  Nat_Log_7term; 


function  Nat_Log_6term  (  Input  :  Inputs  )  return  Outputs  is 


Inter_result 
Result 
Mod_Input 
Mod  Squared 


:  Inputs; 

•  Outputs; 
:  Inputs; 

:  Inputs; 


begin 

Mod_Input  :=  (Input  -  1.0)/(Input  +  1.0); 

Mod_Squared  :=  Mod  Input  *  Mod  Input; 

Inter_Result  :=  (T((Nat_Log_cTl  *  Mod_Squared  + 

Nat_Log_C9)  *  Mod~Squared  + 

Nat_Log_C7)  *  Mod_Squared  + 

Nat_Log_C5)  *  Mod_Squared  + 

Nat_Log  C3)  *  Mod  Squared; 

Result  :=  (Inter_Result  *  Mo3_Input)  +  TMod_Input  *  Nat_Log_Cl); 
return  Result; 
end  Nat_Log_6term; 


function  Nat_Log_5term  (  Input  :  Inputs  )  return  Outputs  is 
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Inter_result 
Result 
Mod_Input 
Mod  Squared 


:  Inputs; 

:  Outputs; 
:  Inputs; 

:  Inputs; 


begin 

Mod_Input  :=  (Input  -  1.0)/(Input  +  1.0); 

Mod_Squared  :=  Mod  Input  *  Mod_Input; 

Inter_Result  :=  ( (\Nat_Log_C9  *  Mod_Squared  + 

Nat_Log~C7)  *  Mod_Squared  + 

Nat_Log_C5)  *  Mod_Squared  + 

Nat_Log_C3)  *  Mod_Squared; 

Result  :=  (Inter_Result  *  Mod_Input)  +  (Mod_Input  *  Nat_Log_Cl); 
return  Result; 
end  Nat_Log_5term; 


function  Nat_Log_4term  (  Input  :  Inputs  )  return  Outputs  is 


Inter_result 

Result 

Mod_Input 

Mod_Squared 


:  Inputs; 

:  Outputs; 
:  Inputs; 

:  Inputs; 


begin 

ModJEnput  :»  (Input  -  1.0)/(Input  +  1.0); 

Mod~Squared  :*  Mod  Input  *  Modlnput; 

Intir_Result  :*  (lNat_Log_C7  *  ModSquared  + 

Nat~Log_C5)  *  Mod_Squared  + 

Nat~Log~C3)  *  Mod_Squared; 

Result  :■*  (Inter_Result  *  Mod_Input)  +  (Mod_Input  *  Nat_Log_Cl); 
return  Result; 
end  Nat_Log_4term; 


end  Taylor_Natural_Log; 


3. 3. 6. 8. 9. 7. 9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 7. 9. 3. 8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 7. 9. 3. 9  LLCSC  DESIGN 


None. 
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3.3.6.8.9.7.9.3.10  UNIT  DESIGN 


None. 


3. 3. 6. 8. 9. 7. 9. 4  TAYLOR_LOG_BASE__N  PACKAGE  DESIGN  (CATALOG  #P874-0) 

This  packages  contains  generic  functions  providing  Taylor  polynomial  solutions 
for  the  log  function  for  base  N. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


j  Name  j  Catalog  _#  | 


|  Log  Base  N  8 term 

|  P875-0 

1 

|  Log  Base  N  7 term 

i  P876-0 

|  Log  Base  N  6 term 

j  P877-0 

j  Log  Base  N  5 term 

|  P878-0 

j  Log  Base  N  4term 

|  P879-0 

1 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 7. 9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R222. 


3. 3. 6. 8. 9. 7. 9. 4. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 7. 9. 4. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Inputs 
j  Outputs 

|  Floating  point 
j  Floating  point 

|  Floating  point  input  to  the  function  | 

j  Floating  point  output  to  the  function  j 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 
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|  Name 

1  Type 

Value 

Description  | 

|  Base_N 

|  Positive 

defualt  =  10 

Base  to  operate  in  | 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

|  Name 

Type  1 

Description  | 

|  Log  Base  N 
j  Functions 

|  Input 

1 

Floating 

Point 

Input  upon  which  to  apply  the  funtion  | 

1 

3. 3. 6. 8. 9. 7. 9. 4. 4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  | 

1  Type 

|  Value 

|  Description  | 

|  Local  Natural  Log  | 
1  ~  1 

|  Instantiated 
package 

|  N/A 

1 

|  Natural  log  package  used  in 
j  calculating  log  base  n 

3. 3. 6. 8. 9. 7. 9. 4. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 8. 9. 7. 9. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials. Taylor_Series) 
package  body  Taylor_Log_Base_N  is 

package  Local_Natural_Log  is  new  Taylor_Natural_Log(  Inputs  =>  Inputs, 

Outputs  »>  Outputs); 


package  body  Log_Base_N_8term  is 

0ne_0ver_Base_Log  :  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_8term(  Inputs(Base_N)  ); 

function  Log_N_8term  <  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_8terra(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_8term; 
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end  Log_Base_N_8term; 

package  body  Log_Base_N_7term  is 

0ne_0ver_Base_Log  :  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_7term(  Inputs (Base_N)  ); 

function  Log_N_7term  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_7term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_7term; 

end  Log_Base_N_7 terra; 

package  body  Log_Base_N_6 term  is 

0ne_0ver_Base_Log  :  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_6terra(  Inputs (BaseN)  ); 

function  Log_N_6terra  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_6term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_6term; 

end  I.og_Base_N_6  terra; 

package  body  Log_Base_N_5term  is 

0ne_0ver_Base_Log  :  constant  Outputs  :*  1.0  / 

Local_Natural_Log.Nat_Log_5term(  Inputs (BaseN)  ); 

function  Log_N_5term  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_5term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_5terra; 

end  Log_Base_N_5 terra; 

package  body  Log_Base_N_4terra  is 

0ne_0ver_Base_Log  s  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_4terra(  Inputs  (BaseN)  ); 

function  Log_N_4term  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_4term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_4term; 

end  Log_Base_N_4term; 

end  Taylor_Log_Base_N; 


j 
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3. 3. 6. 8. 9. 7. 9. 4. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 9. 7. 9. 4. 8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 7. 9. 4. 9  LLCSC  DESIGN 
None. 

3.3.6.8.9.7.9.4.10  UNIT  DESIGN 
None. 

3.3.6.8.9.7.10  UNIT  DESIGN 
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3. 3. 6. 8. 9. 8  GENERAL_POLYNOMIAL  PACKAGE  DESIGN  (CATALOG  #P738-0) 

This  package  allows  the  user  to  define  a  polynomial  function  and  to  then  solve 
the  user-polynomial  for  a  given  input  value. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Polynomial 

|  P739-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 8. 9. 8.1  REQUIREMENTS  ALLOCATION 

This  part  partially  meets  CAMP  requirement  R214  through  R222. 

3. 3. 6. 8. 9. 8. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 8. 9. 8. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

|  Name  |  Type  |  Description  | 

|  Inputs  |  floating  |  Data  type  of  independent  values 

j  j  point  type  j 

I  Results  j  floating  j  Data  type  of  dependent  values 

j  j  point  type  j 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Coefficient_Count 

Positive 

Number  of  coefficient  in  the  polynomial  | 

3 


1 
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subroutines  required  by  this  j 

i 


j  Name 

1  Type 

Description  | 

|  "**" 

1 

|  function 

1 

Exponential  operator  defining  the  operation:  j 

Inputs  **  x  :=  Results  j 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 

|  Function  |  Name  |  Type  j  Description  | 

|  Polynomial  |  Input  |  Inputs  |  Value  of  X  for  polynomial  solution  j 


3. 3. 6. 8. 9. 8. 4  LOCAL  DATA 


Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


|  Name 

|  Range 

|  Operators  | 

Description  | 

|  Coefficient 

|  N/A 

1  N/A  1 

Contains  the  a  and  b  components  | 

j  Records 

1 

1  1 

of  a  polynomial  term:  a*(x**b)| 

j  Table 

1  1 

j  N/A  j 

Defines  the  size  of  the  j 

j  Dimensions 

|  Coefficient 

1  1 

polynomial  table  j 

1 

|  Count 

|  N/A  | 

1 

Data  objects: 

The  following  table  describes 

the  data  objects  exported  by  this  part: 

|  Name 

1  Type 

Definition 

I 

|  Polynomial 

1  array 

Array  of  polynomial 

terms  | 

j  Definition 

1 

1 

■  in  .  r**  m  mtu 


3. 3, 6. 8. 9. 8. 5  PROCESS  CONTROL 
Not  applicable. 
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3. 3. 6. 8. 9. 8. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 

package  body  General_Polynomial  is 

function  Polynomial  (Input  :  Inputs)  return  Results  is 
Result  :  Results; 
begin 

Result  :=  0.0; 

for  Index  in  Table_Dimension 
loop 

Result  :*  Result  + 

Polynomial_Definition(  Index  ). Coefficient  * 

(Input  **  Polynomial_Definition(  Index  ) . Pover_of_X) ; 

end  loop; 
return  Result; 
end  Polynomial; 

end  General_Polynomial; 


3. 3. 6. 8. 9. 8. 7  UTILIZATION  OP  OTHER  ELEMENTS 


Ncr/J. 


3. 3. 6. 8. 9. 8. 8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 8. 9  LLCSC  DESIGN 
None. 

3.3.6.8.9.8.10  UNIT  DESIGN 
None. 
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3. 3. 6. 8. 9. 9  SYSTEM  FUNCTIONS  PACKAGE  DESIGN  (CATALOG  #P770-0) 

This  package  provides  access  to  the  Ada  system  library  for  standard 
mathematical  functions.  For  trigonometric  functions,  packages  are  provided  to 
allow  for  inputs  in  units  of  radians,  semicircles,  or  degrees. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 8. 9. 9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R223. 

3. 3. 6. 8. 9. 9. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 8. 9. 9. 3  INPUT/OUTPUT 
None. 


3. 3. 6. 8. 9. 9. 4  LOCAL  DATA 
None. 

3. 3. 6. 8. 9. 9. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 8. 9. 9. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 
package  body  SystemFunctions  is 

package  body  Radian_Operations  is  separate; 

package  body  Semi circle_Operat ions  is  separate; 

package  body  Degree_Operations  is  separate; 

package  body  Square_Root  is  separate; 

package  body  Base_10_Logari thm  is  separate; 

package  body  Base_N_Logarithm  is  separate; 

end  System_Functions; 
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3. 3. 6. 8. 9. 9. 7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  with'd  by  this  part: 
1.  Math_Lib 

3. 3. 6. 8. 9. 9. 8  LIMITATIONS 


None. 


3. 3. 6. 8. 9. 9. 9  LLCSC  DESIGN 

3. 3. 6. 8. 9. 9. 9.1  RADIAN  OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P771-0) 

This  package  contains  a  set  of  trigonometric  functions  which  deal  with  angles 
in  units  of  radians.  The  functions  provided  are  sine,  cosine,  tangent, 
arcsine,  arccosine,  arctangent. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 9. 9. 1.1  REQUIREMENTS  ALLOCATION 

Together  with  the  other  parts  in  the  System_Functions  package,  this  part  meets 
CAMP  requirement  R223. 


3. 3. 6. 8. 9. 9. 9. 1.2  LOCAL  ENTITIES  DESIGN 
Packages : 

The  following  describes  the  packages  contained  in  this  part: 


|  Name 

1  Type  | 

Description  | 

Radian  Math  Lib 

package 

Math  library  where  functions  called  will  have 

inputs  and  outputs  of  type  Radians;  input 
and  output  values  will  be  converted  as 

1 

necessary 

3. 3. 6. 8. 9. 9. 9. 1.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  the  package 
specification  of  Radian_Operations: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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j  Name  |  Type  |  Description 


I 


Radians 
Sin  Cos  Ratio 


Tan  Ratio 


floating 
point  type 
floating 
point  type 


floating 
point  type 


Data  type  describing  units  of 
angles 

Data  type  describing  output  values 
from  sine  and  cosine  functions 
and  input  values  to  arcsine  and 
arccosine  functions 
Data  type  describing  output  values 
from  tangent  function  and  input 
values  to  arctangent  function 


3. 3. 6. 8. 9. 9. 9. 1.4  LOCAL  DATA 


None. 


3. 3. 6. 8. 9. 9. 9. 1.5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 8. 9. 9. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  parts 

separate  (Polynomials . System_Functions) 
package  body  Radian_Operations  is 

- instantiated  packages- 

package  Radian_Math_Lib  is  new  Math_Lib  (Real  *>  Radians); 
package  MJLib  renames  Radian_Math_Lib; 

- renamed  functions  within  Local  Math  Lib 


function  Ada_Sin  (Input  s  Radians)  return  Radians  renames  MJLib. Sin; 

function  Ada~Cos  (Input  :  Radians)  return  Radians  renames  MJLib. Cos; 

function  AdaJTan  (Input  s  Radians)  return  Radians  renames  M~Lib.Tan; 

function  Ada  Arcsin 

Tlnput  :  Radians)  return  Radians  renames  M_Lib.Asin; 
function  Ada_Arccos 

(Input  :  Radians)  return  Radians  renames  M_Lib.Acos; 
function  Ada  Arctan 

("input  :  Radians)  return  Radians  renames  M_Lib.Atan; 
end  Radian_Operations; 
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3. 3. 6. 8. 9. 9. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 9. 9. 9. 1.8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 9. 9. 1.9  LLCSC  DESIGN 
None. 

3.3.6.8.9.9.9.1.10  UNIT  DESIGN 

3.3.6.8.9.9.9.1.10.1  SIN  UNIT  DESIGN  (CATALOG  #P772-0) 

This  function  returns  the  sine  of  an  angle  with  units  of  radians. 

3.3.6.8.9.9.9.1.10.1.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.1.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.1.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS; 

The  following  table  describes  this  part's  formal  parameters; 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

|  Radians 

1  In 

|  Angle  for  which  a  sine  is  desired  | 

3.3.6.8.9.9.9.1.10.1.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.1.10.1.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.8.9.9.9.1.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Sin  (Input  :  Radians)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Sin(Input)); 
exception 

when  M_Lib.R0prand  =>  raise  Invalid_Operand; 
end  Sin; 


3.3.6.8.9.9.9.1.10.1.7  UTILIZATION  0?  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  RadianOperations: 


|  Name  |  Type  |  Description 


Radians  |  floating 

|  point  type 
Sin_Cos_Ratio  j  floating 

j  point  type 


Data  type  describing  units  of 
angles 

Data  type  describing  output  values 
from  sine  and  cosine  functions 
and  input  values  to  arcsine  and 
arccosine  functions 


1 

j 


Exceptions: 


The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  The  input  value  is  in  an  improper  format  not  | 

1  accepted  by  the  operating  system  j 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
in  the  package  body  of  Radian_Operations: 
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|  Name 

1  Type 

Description  j 

|  Ada_Sin 

|  function 

Sine  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.1.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

When/Why  Raised  | 

|  Invalid  Operand 

1 

Raised  if  the  format  of  the  input  is  invalid  and  not  \ 

accepted  by  the  operating  system.  j 

3.3.6.8.9.9.9.1.10.2  COS  UNIT  DESIGN  (CATALOG  #P773-0) 

This  function  returns  the  cosine  of  an  angle  with  units  of  radians. 

3.3.6.8.9.9.9.1.10.2.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.1.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.1.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

|  Radians 

1  In 

|  Angle  for  which  a  cosine  is  desired  | 

3.3.6.8.9.9.9.1.10.2.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.1.10.2.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.8.9.9.9.1.10.2.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 
function  Cos  (Input  :  Radians)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Cos(Input)); 
exception 

when  M_Lib.R0prand  =>  raise  Invalid_Operand; 
end  Cos; 


3.3.6.8.9.9.9.1.10.2.7  UTILIZATION  OP  OTHER  ELEMENTS 


UTILIZATION  OF  ANCESTRAL  ELEMENTS: 


The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 


The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Radian_Operations: 


|  Name  |  Type  |  Description 


Radians  |  floating 

|  point  type 
Sin_Cos_Ratio  |  floating 

j  point  type 


Lata  type  describing  units  of 
angles 

Data  type  describing  output  values 
from  sine  and  cosine  functions 
and  input  values  to  arcsine  and 
arccosine  functions 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  The  input  value  is  in  an  improper  format  not  i 

j  accepted  by  the  operating  system  j 

Subprograms  and  task  entries: 


The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
in  the  package  body  of  Radian_Operations: 
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|  Name 

1  Type 

Description  | 

|  Ada_Cos 

|  function 

Cosine  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.1.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

[  Vhen/Vhy  Raised  | 

|  Invalid  Operand 

1  1 

|  Raised  if  the  format  of  the  input  value  is  invalid  and  [ 
j  not  accepted  by  the  operating  system  [ 

3.3.6.8.9.9.9.1.10.3  TAN  UNIT  DESIGN  (CATALOG  IP774-0) 

This  function  returns  the  tangent  of  an  angle  with  units  of  Radians. 

3.3.6.8.9.9.9.1.10.3.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.1.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.1.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

|  Radians 

1  In 

|  Angle  for  which  a  tangent  is  desired  | 

3.3.6.8.9.9.9.1.10.3.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.1.10.3.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.8.9.9.9.1.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  parts 
function  Tan  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Ada_Tan(Input) ) } 
exception 

when  M_Lib.R0prand  =*>  raise  Invalid_Operand; 
when  M_Lib.FloOveMat  =>  raise  Overflow; 

end  Tan; 


3.3.6.8.9.9.9.1.10.3.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 


The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  RadianOperations: 


|  Name 

1  Type 

Description  | 

j  Radians 

|  floating 

Data  type  describing  units  of 

1 

j  point  type 

angles 

|  Tan_Ratio 

j  floating 

Data  type  describing  output  values 

1 

j  point  type 

1 

from  tangent  function  and  input 
values  to  arctangent  function 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

i 

|  Overflow 

1 

|  The  input  value  is  in  an  improper  format  not 
j  accepted  by  the  operating  system 
j  A  floating  point  overflow  was  encountered  during 
j  the  calculations 

Subprograms  and  task  entries: 


V\i  (fUXYKV»'«bJIA H/V  UASkJI  jLflkrt  jUTHJl  M.TkKV  JTk HV KV M\l  >TV  ITVKVjrUICV  H\i  XV WV KV  WUW  (ft.  (ft. 
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The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
in  the  package  body  of  Radian_Operations: 


|  Name 

1  Type 

Description  | 

|  AdaJTan 

|  function 

Tangent  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.1.10.3.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised 


|  Invalid_Operand  |  Raised  if  the  input  value  has  an  improper  format  which  is| 
j  j  not  accepted  by  the  operating  system  j 
j  Overflow  j  Raised  if  a  floating  point  overflow  error  is  encountered  j 
j  j  during  computations  j 


3.3.6.8.9.9.9.1.10.4  ARCSIN  UNIT  DESIGN  (CATALOG  #P775-0) 

This  function  returns  the  Arcsin,  in  units  of  Radians,  of  am  input  value.  The 
input  value  must  not  be  greater  than  1.0  or  less  than  -1.0. 

3.3.6.8.9.9.9.1.10.4.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.1.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.1.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Input 

|  Sin_Cos_Ratio  | 

I  In 

|  Value  which  an  arcsine  is  desired  | 
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3.3.6.8.9.9.9.1.10.4.4  LOCAL  DATA 


None. 


3.3.6.8.9.9.9.1.10.4.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9*9.9.1.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part; 
function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
begin 

return  Ada_Arcsin(Radian$(Input)) ; 
exception 

when  H^Lib.ROprand  »>  raise  Invalid_Opersnd; 
when  MjLib.InvArgMat  «=>  raise  Invalid~Argument ; 

end  Arcsinj 


3.3.6.8.9.9.9.1.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Radian_Operations: 


|  Name 

Type 

Description  | 

Radians 

floating 

Data  type  describing  units  of 

point  type 

angles 

Sin  Cos  Ratio 

floating 

Data  type  describing  output  values 

point  type 

from  sine  and  cosine  functions 

and  input  values  to  arcsine  and 

arccosine  functions 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 
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|  Name 


Description 


|  Invalid_Operand  |  The  input  value  is  in  an  improper  format  not  | 
I  j  accepted  by  the  operating  system  j 
j  Invalid_Argument  j  The  input  value  is  an  a  range  unacceptable  to  the  j 
j  j  function  being  called  j 


Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
in  the  package  body  of  Radian_Operations: 


|  Name 

Type 

Description  | 

!  Ada_Arcsin 

function 

Arcsine  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.1.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


I 

i 


J 


|  Name  (  When/Why  Raised 


|  Invalid_Operand  I  Raised  if  the  input  value  is  in  an  improper  format  that 
!  I  is  not  accepted  by  the  operating  system 

j  Invalid  Argument!  Raised  if  the  absolute  value  of  the  input  is  greater 
j  |  then  1.0 


3.3.6.8.9.9.9.1.10.5  ARCCOS  UNIT  DESIGN  (CATALOG  #P776-0) 

This  function  returns  the  Arccos,  in  units  of  Radians,  of  an  input  value.  The 
absolute  value  of  the  input  must  not  be  greater  than  1.0. 

3.3.6.8.9.9.9.1.10.5.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.1.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.8.9.9.9.1.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

!  Input 

|  Sin_Cos_Ratio 

I  In 

|  Value  which  an  arccosine  is  desired  | 

3.3.6.8.9.9.9.1.10.5.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.1.10.5.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.9.9.1.10.5.6  PROCESSING 


r 


The  following  describes  the  processing  performed  by  this  part: 
function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
begin 

return  Ada_Arccos(Radians(input)) ; 
exception 

when  MLib.ROprand  »>  raise  Invalid_Operand; 
when  M_Lib.InvArgMat  =>  raise  Invalid_Argument; 

end  Arccos; 


3.3.6.8.9.9.9.1.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 


The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


j 


J 

1 


j 

i 

i 

J 

j 

j 

J 

‘j 


Data  types: 


The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Radian  Operations: 


L/rfU WWV\JV\AA/V'u  JVJ  rfL  WV  rfV  V\i  *V  K\.  ru  KV  RyRURK'RUHflMR HJ\  A*.  HA  aJ\  JLft  JU1  HA  %J\  ftJi *TV >nr\  AA  fU\  W  Ml 


CAHP  Software  Detailed  Design  Document 


Page  1562 


|  Name  |  Type  |  Description 


j  Radians 
I  Sin  Cos  Ratio 


floating 
point  type 
floating 
point  type 


Data  type  describing  units  of 
angles 

Data  type  describing  output  values 
from  sine  and  cosine  functions 
and  input  values  to  arcsine  and 
arccosine  functions 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name  | 

|  Description  | 

|  Invalid  Operand  j 

1  "  1 

|  Invalid  Argument 

1  '  1 

The  input  value  is  in  an  improper  format  not  | 

accepted  by  the  operating  system  j 

The  input  value  is  an  a  range  unacceptable  to  the  j 
function  being  called  j 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
in  the  package  body  of  Radian_Operations: 


|  Name 

Type 

Description  | 

|  Ada_Arccos 

function 

Arccosine  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.1.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by,  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Invalid  Operand  | 

1  "  1 
|  Invalid  Argument 

1 

Raised  if  the  input  value  is  in  an  improper  format  that  | 
is  not  accepted  by  the  operating  system  j 

Raised  if  the  absolute  value  of  the  input  is  greater  | 

than  1.0  j 

3.3.6.8.9.9.9.1.10.6  ARCTAN  UNIT  DESIGN  (CATALOG  #P777-0) 

This  function  returns  the  Arctangent,  in  units  of  Radians,  of  an  input  value. 
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3.3.6.8.9.9.9.1.10.6.1  REQUIREMENTS  ALLOCATION 
See  top  header. 


3.3.6.8.9.9.9.1.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.8.9.9.9.1.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

|  Tan  Ratio 

1  In 

j  Value  which  an  arctangent  is  desired  | 

3.3.6.8.9.9.9.1.10.6.4  LOCAL  DATA 
None. 

<£ 

3.3.6.8.9.9.9.1.10.6.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.9.9.1.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Arctan  (Input  :  Tar»_Ratio)  return  Radians  is 
begin 

return  Ada_Arctan(Radians(input)); 
exception 

when  MJLib.ROprand  =*>  raise  Invalid_Operand; 
end  Arctan; 


3.3.6.8.9.9.9.1.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 


The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


\4jrvanrKiiirwjruwutf\jVTiirL.  vuiAiMrtsnAM 
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Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Radian_Operations: 


|  Name  |  Type  |  Description 


|  Radians 

|  floating 

1 

Data  type  describing  units  of 

j  point  type 

1 

angles 

j  Tan  Ratio 

|  floating 

1 

Data  type  describing  output  values 

j  point  type 

1 

from  tangent  function  and  input 

1 

1 

values  to  arctangent  function 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  The'  input  value  is  in  an  improper  format  not 
j  ‘  accepted  by  the  operating  system 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and  defined 
in  the  package  body  of  Radian_Operations: 


|  Name 

Type 

Description  | 

|  Ada_Arctan 

function 

Arctangent  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.1.10.6.8  LIMITATIONS 

Tha  following  table  describes  the  exceptions  raised  by  this  part: 


i 


\ 


|  Name 


1  When/Why  Raised 


Invalid_Operand  |  Raised  if  the  input  value  is  in  an  improper  format  which 
|  is  not  accepted  by  the  operating  system 


3. 3. 6. 8. 9. 9. 9. 2  SEMICIRCLE  OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P778-0) 

This  package  contains  a  set  of  trigonometric  functions  which  deal  with  angles 
in  units  of  semicircles.  The  functions  provided  are  sine,  cosine,  tangent, 
arcsine,  arccosine,  arctangent. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 9. 9. 2.1  REQUIREMENTS  ALLOCATION 

Together  with  the  other  parts  in  the  System_Functions  package,  this  part  meets 
CAMP  requirement  R223. 

3. 3. 6. 8. 9. 9. 9. 2. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 8. 9. 9. 9. 2. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  described  at  the  package 
specification  level  of  Semicircle_Operations: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


Name 


Type 


Description 


Scalars 

Semicircles 

Sin_Cos_Ratio 
Tan  Ratio 


floating 
floating 
point  type 
floating 
point  type 

floating 
point  type 


Describes  data  type  of  input  object  pi 
Data  type  describing  units  of  angles 

Data  type  describing  output  values  from  sine 
and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 
Data  type  describing  output  values  from 
tangent  function  and  input  values  to 
arctangent  function 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

|  Description  | 

1  Pi 

|  Scalars 

N/A 

|  Number  of  radians  in  a  semicircle  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  (operators) 
required  by  this  part: 
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j  |  Left  Input 

|  Name  j  Type 


|  j  Semicircles 

j  j  Scalars 

|  "/"  j  Scalars 


I  Right  Input  |  Result  | 

I  Type  |  Type  | 


|  Scalars  |  Scalars  j 

|  Scalars  j  Semicircles  j 

j  Scalars  j  Scalars  i 


j 

J 


3. 3. 6. 8. 9. 9. 9, 2  4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Description  | 

|  One  Over  Pi 

Scalars 

Contains  the  value  1/pi  | 

3. 3. 6. 8. 9. 9. 9. 2. 5  PROCESS  CONTROL 
Not  applicable. 

. 

3. 3. 6. 8. 9. 9. 9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separa te  ( Polynomials . Sys tem_Func t ions ) 
package  body  Semicircle_Operations  is 


—  — instantiated  packages- 

package  Semicircle_Math_Lib  is  new  Math_Lib  (Real  *>  Scalars); 
package  M_Lib  renames  Semicircle_Math_Lib; 


—  — renamed  functions  within  Local  Math  Lib 


function  Ada_Sin  (Input  :  Scalars)  return  Scalars 

function  Ada_Cos  (Input  :  Scalars)  return  Scalars 

function  Ada_Tan  (Input  :  Scalars)  return  Scalars 

function  Ada_Arcsin 

(Input  :  Scalars)  return  Scalars  renames 
function  Ada  Arccos 

^Input  :  Scalars)  return  Scalars  renames 
function  Ada_Arctan 

(Input  :  Scalars)  return  Scalars  renames 


renames  M_Lib.Sin; 
renames  M~Lib.Cos; 
renames  M  Lib. Tan; 


M_Lib.Asin; 
M_Lib.Acos; 
M  Lib.Atan; 


L 
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—  — local  declarations 

0ne_0ver_Pi  :  constant  Scalars  :=  1.0  /  Pi; 
end  Semicircle_Operations; 

3. 3. 6. 8. 9. 9. 9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 9. 9. 9. 2. 8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 9. 9. 2. 9  LLCSC  DESIGN 
None. 

3.3.6.8.9.9.9.2.10  UNIT  DESIGN 

3.3.6.8.9.9.9.2.10.1  SIN  UNIT  DESIGN  (CATALOG  #P779-0) 

This  function  returns  the  sine  of  an  angle  with  units  of  semicircles. 

3.3.6.8.9.9.9.2.10.1.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.2.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.2.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Semicircles 

In 

|  Angle  for  which  a  sine  is  desired  | 
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3.3.6.8.9.9.9.2.10.1.4  LOCAL  DATA 


None. 


3.3.6.8.9.9.9.2.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.8.9.9.9.2.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Sin  (Input  :  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Sin(input*pi)) ; 
exception 

when  M_Lib.ROprand  =>  raise  Invalid_Operand; 

.  end  Sin; 


3.3.6.8.9.9.9.2.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle_Operations: 


|  Name 

Type  |  Description  | 

|  Semicircles 

floating  |  Data  type  describing  units  of  angles 

i 

point  type  j 

1  Sin  Cos  Ratio 

floating  j  Data  type  describing  output  values  from  sine 

point  type  |  and  cosine  functions  and  input  values  to 

1 

|  arcsine  and  arccosine  functions 

Data  objects: 

The  following  table  summarizes  the  generic  objects  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle  Operations: 


A  HA  » 


i 
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|  Name 

1  Type 

Value 

|  Description  | 

1  Pi 

|  Scalars 

N/A 

|  Number  of  radians  in  a  semicircle  | 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  The  input  value  is  in  an  improper  format  not  | 

j  accepted  by  the  operating  system  j 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Semicirde_0perations: 


|  Name 

1  Type 

Description  | 

|  Ada_Sin 

|  function 

Sine  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.2.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Vhy  Raised  | 

|  Invalid  Operand 

1 

1 

|  Raised  if  the  format  of  the  input  is  such  that  after 
!  conversion  to  an  angle  with  units  of  radians  is  invalid 
j  and  not  accepted  by  the  operating  system 

3.3.6.8.9.9.9.2.10.2  COS  UNIT  DESIGN  (CATALOG  #P1087-0) 

This  function  returns  the  cosine  of  an  angle  with  units  of  semicircles. 


3.3.6.8.9.9.9.2.10.2.1 


REQUIREMENTS  ALLOCATION 


See  top  header. 
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3.3.6.8.9.9.9.2.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.2.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

(  Input 

|  Semicircles 

In 

|  Angle  for  which  a  cosine  is  desired  | 

3.3.6.8.9.9.9.2.10.2.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.2.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.2.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Cos  (Input  :  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Cos(input*pi)); 
exception 

when  M_Lib.ROPrand  *>  raise  Invalid_Operand; 
end  Cos; 


3.3.6.8.9.9.9.2.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle_Operations: 


uninmna 
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|  Name  |  Type  |  Description 


Semicircles 
Sin  Cos  Ratio 


floating 
point  type 
floating 
point  type 


Data  type  describing  units  of  angles 

Data  type  describing  output  values  from  sine 
and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 


Data  objects: 

The  following  table  summarizes  the  generic  objects  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle_Operations: 


|  Name 

1  Type 

Value 

|  Description 

1 

1  Pi 

|  Scalars 

N/A 

|  Number  of  radians  in  a  semicircle 

1 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  The  input  value  is  in  an  improper  format  not  j 

|  accepted  by  the  operating  system  j 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Semicircle_Operations: 


|  Name 

1  Type  | 

|  Description  | 

|  Ada_Cos 

|  function 

{  Cosine  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.2.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Invalid  Operand 

|  Raised  if  the  format  of  the  input  is  such  that  after 

1 

!  conversion  to  an  angle  with  units  of  radians  is  invalid 

1 

|  and  not  accepted  by  the  operating  system 
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3.3.6.8.9.9.9.2.10.3  TAN  UNIT  DESIGN  (CATALOG  #P781-0) 

This  function  returns  the  tangent  of  an  angle  with  units  of  Semicircles. 

3.3.6.8.9.9.9.2.10.3.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.2.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.8.9.9.9.2.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Semicircles 

In 

|  Angle  for  which  a  tangent  is  desired  | 

3.3.6.8.9.9.9.2.10.3.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.2.10.3.5  PROCESS  CONTROL 
Not  applicable. 

4 

3.3.6.8.9.9.9.2.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Tan  (Input  :  Semicircles)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Ada_Tan(input*pi)) ; 
exception 

when  M_Lib.ROprand  =>  raise  Invalid_0perand; 
when  M_Lib.FloOveMat  =>  raise  Overflow; 

end  Tan; 


| 

i 
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3.3.6.8.9.9.9.2.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEHENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

Semicircle  Operations: 


|  Name  |  Type  j  Description 


I 


Semicircles 
Tan  Ratio 


floating 
point  type 
floating 
point  type 


Data  type  describing  units  of  angles 

Data  type  describing  output  values  from 
tangent  function  and  input  values  to 
arctangent  function 


Data  objects: 

The  following  table  summarizes  the  generic  objects  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicirde_0perations: 


|  Name 

1  Type  | 

Value 

|  Description  | 

1  Pi 

|  Scalars  | 

N/A 

|  Number  of  radians  in  a  semicircle  | 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  Overflow 

1 

|  The  input  value  is  in  an  improper  format  not 
j  accepted  by  the  operating  system 
j  A  floating  point  overflow  was  encountered  during 
j  the  calculations 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Semicircle_Operations: 


|  Name 

1  Type 

Description  | 

|  Ada_Tan 

|  function 

Tangent  function  handling  units  of  radians  | 
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3.3.6.8.9.9.9.2.10.3.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  |  When/Why  Raised  | 

|  Invalid_Operand  j  Raised  if  the  format  of  the  input  is  such  that  after  { 

j  j  unit  and  data  type  conversion  it  is  invalid  j 

j  j  and  not  accepted  by  the  operating  system  j 

j  Overflow  j  Raised  if  a  floating  point  overflow  error  is  j 

j  j  encountered  during  computations  j 


3.3.6.8.9.9.9.2.10.4  ARCSIN  UNIT  DESIGN  (CATALOG  #P782-0) 

This  function  calculates  the  arcsine  of  an  input  value  with  the  result  being  in 
units  of  semicircles.  The  absolute  value  of  the  input  must  not  be  greater  than 
1.0, 

3.3.6.8.9.9.9.2.10.4.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.2.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.2.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters:  ' 


|  Name 

1  Type 

Mode 

|  Description  | 

|  input 

|  Sin_Cos_Ratio 

In 

|  Value  for  which  an  arcsine  is  desired  | 

3.3.6.8.9.9.9.2.10.4.4  LOCAL  DATA 
None. 


3.3.6.8.9.9.9.2.10.4.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.8.9.9.9.2.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 
begin 

return  Ada_Arcsin(Scalars(input))  *  0ne_0ver_Pi; 
exception 

when  H_Lib.ROprand  =>  raise  Invalid_Operand; 
when  M_Lib.InvArgMat  =*>  raise' Invalid_Argument; 

end  Arcsin; 


3.3.6.8.9.9.9.2.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Se»icircle_Operations: 


i 

5 

i 


i 


|  Name  |  Type  |  Description 


Scalars 

Semicircles 

Sin  Cos  Ratio 


floating 
floating 
point  type 
floating 
point  type 


Describes  data  type  of  input  object  pi 
Data  type  describing  units  of  angles 

Data  type  describing  output  values  from  sine 
and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 


Data  objects: 

The  following  table  summarizes  the  generic  objects  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle_Operations: 


|  Name 

1  Type 

Value 

|  Description  | 

|  Pi 

|  Scalars 

N/A 

|  Number  of  radians  in  a  semicircle  | 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Semi circle_Operat ions: 


irviruirv  irw  jr**  /invi  wriru  uw  i  n. : 
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|  Name 

Type 

Value 

|  Description  ] 

|  0ne_0ver_Pi 

Scalars 

1/pi 

|  Number  of  radians  in  a  semicircle  | 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

1  Invalid  Operand 
! 

|  Invalid  Argument 

1 

|  The  input  value  is  in  an  improper  format  not  1 
j  accepted  by  the  operating  system  j 
j  The  input  value  is  an  a  range  unacceptable  to  the  j 
j  function  being  called  j 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Semicircle_Operations: 


|  Name 

Type 

Description  | 

|  Ada  Arcsin 

function 

Arcsine  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.2.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  When/Why  Raised 


Invalid_Operand  |  Raised  if  the  format  of  the  input  value  is  such  that 
j  after  data  type  conversion  it  is  invalid  and  not 
1  accepted  by  the  operating  system 
Invalid_Argument  j  Raised  if  the  absolute  value  of  the  input  value  is 
j  greater  than  1.0 


3.3.6.8.9.9.9.2.10.5  ARCCOS  UNIT  DESIGN  (CATALOG  #P783-0) 

This  function  returns  the  Arccos,  in  units  of  Semicircles,  of  an  input  value. 
The  absolute  value  of  the  input  must  not  be  greater  than  1.0.  • 
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3.3.6.8.9.9.9.2.10.5.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.2.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.8.9.9.9.2.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  folloving  table  describes  this  part's  formal  parameters: 


|  Name 

1  T>pe  | 

|  Mode 

|  Description  | 

|  Input 

!  Sin_Cos_Ratio  | 

|  In 

|  Value  for  which  an  arccosine  is  desired  | 

3.3.6.8.9.9.9.2.10.5.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.2.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.2.10.5.6  PROCESSING 

The  folloving  describes  the  processing  performed  by  this  part: 
function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 
begin 

return  Ada_Arccos(Scalars(Input))  *  0ne_0ver_Pi; 
exception 

when  M_Lib.ROprand  =>  raise  Invalid_Operand; 
when  M~Lib.InvArgMat  *>  raise  Invalid~Argument ; 

end  Arccos; 

3.3.6.8.9.9.9.2.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 
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The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


Data  types: 


The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle_Operations: 


Description 


floating 
floating 
point  type 
floating 
point  type 


Describes  data  type  of  input  object  pi 
Data  type  describing  units  of  angles 


Data  type  describing  output  values  from  sine 
and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 


Data  objects: 


The  following  table  summarizes  the  generic  objects  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle  Operations: 


Name  |  Type  |  Value 
Pi  I  Scalars  I  N/A 


Description 

Number  of  radians  in  a  semicircle 


The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Semicircle_Operations: 


|  Name  |  Type  |  Value  j  Description 

|  0ne_0ver_Pi  |  Scalars  |  1/pi  |  Number  of  radians  in  a  semicircle 


Exceptions: 


The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  Invalid  Argument 

1 

|  The  input  value  is  in  an  improper  format  not 
|  accepted  by  the  operating  system 
j  The  input  value  is  an  a  range  unacceptable  to  the 
|  function  being  called 

Subprograms  and  task  entries: 
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The  following  table  summarizes  the  subroutines  and  task  entries  required  by 


this  part  and 

defined  in 

the  package  body  of  Semicircle_0perations: 

|  Name  | 

Type 

|  Description  | 

|  Ada_Arccos  | 

function 

|  Arccosine  function  handling  units  of  radians  | 

3. 3. 6. 8. 9. 9. 9. 

2.10.5.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  When/Why  Raised 


Invalid_Operand  |  Raised  if  the  format  of  the  input  value  is  such  that  it 
j  is  invalid  or  not  accepted  by  the  operating  system 
j  after  it  has  been  converted  to  a  data  type  of  Scalars 
Invalid_Argument  j  Raised  if  the  absolute  value  of  the  input  is  greater 
!  than  l.G 


3.3.6.8.9.9.9.2.10.6  ARCTAN  UNIT  DESIGN  (CATALOG  #P784-0) 

This  function  returns  the  arctangent ,  in  units  of  semicircles,  of  an  input 
value. 

3.3.6.8.9.9.9.2.10.6.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.2.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.2.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Tan_Ratio 

In 

|  Value  for  which  an  arctangent  is  desired  | 
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3.3.6.8.9.9.9.2.10.6.4  LOCAL  DATA 


None. 


3.3.6.8.9.9.9.2.10.6.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.8.9.9.9.2.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Arctan  (Input  :  Tan_Ratio)  return  Semicircles  is 
begin 

return  Ada_Arctan(Scalars(Input))  *  0ne_0ver_Pi; 
exception 

when  M_Lib . ROprand  *>  raise  Invalid_Operand; 
end  Arctan; 


3.3.6.8.9.9.9.2.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  generic  types  required  by  this  part  and 
defined  at  the  package  specification  level  of  Seraicirde_0perations: 


|  Namv 

Type 

Description  | 

Scalars 

floating 

Describes  data  type  of  input  object  pi 

Semicircles 

floating 
point  type 

Data  type  describing  units  of  angles 

Tan_Ratio 

floating 
point  type 

Data  type  describing  output  values  from 
tangent  function  and  input  values  to 
arctangent  function  ! 

Data  objects: 

The  following  table  summarizes  the  generic  objects  required  by  this  part  and 
defined  at  the  package  specification  level  of  Semicircle_Operations: 


I 

s 
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|  Name  |  Type  |  Value  |  Description 


|  Pi  |  Scalars  |  N/A  j  Number  of  radians  in  a  semicircle 


The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Semicircle_Operations: 


|  Name  |  Type  |  Value  |  Description 


|  0ne_0ver_Pi  |  Scalars  |  1/pi  |  Number  of  radians  in  a  semicircle 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  The  input  value  is  in  an  improper  format  not 
j  accepted  by  the  operating  system 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Semicircle_Operations: 


|  Name 

Type 

Description  | 

|  Ada_Arctan 

function 

Arctangent  function  handling  units  of  radians  | 

3.3.6.8.9.9.9.2.10.6.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Invalid  Operand 

1 

Raised  if  the  input  value  is  in  an  improper  format  which | 
is  not  accepted  by  the  operating  system  j 

3. 3. 6. 8. 9. 9. 9. 3  DEGREE_0PERATI0NS  PACKAGE  DESIGN  (CATALOG  #P785-0) 

This  package  contains  a  set  of  trigonometric  functions  which  deal  with  angles 
in  units  of  degrees.  The  functions  provided  are  sine,  cosine,  tangent, 
arcsine,  arccosine,  and  arctangent. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


1 


3. 3. 6. 8. 9. 9. 9. 3.1  REQUIREMENTS  ALLOCATION 

Together  with  other  parts  in  the  System_Functions  package,  this  part  meets  CAMP 
requirement  R223. 


3. 3. 6. 8. 9. 9. 9. 3. 2  LOCAL  ENTITIES  DESIGN 
Packages : 

The  following  table  describes  the  packages  local  to  this  part: 


|  Name  |  Type  |  Description  j 


|  Degree_Math_Lib  |  package  |  Math  library  where  functions  called  will  have  j 
j  I  i  inputs  and  outputs  of  type  Degrees;  input  and  j 
1  1  j  output  values  will  be  converted  as  necessary  j 


3. 3. 6. 8. 9. 9. 9. 3. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  this  part's  package 
specification: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

Description  | 

Degrees  | 

1 

floating 
point  type 

Data  type  describing  units  of  angles 

Sin  Cos  Ratio  1 

floating 

Data  type  describing  output  values  from  sine 

1 

point  type 

and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 

Tan  Ratio  | 

floating 

Data  type  describing  output  values  from 

1 

point  type 

tangent  function  and  input  values  to 
arctangent  function 

3. 3. 6. 8. 9. 9. 9. 3. A 

LOCAL  DATA 

None. 


CAMP  Software  Detailed  Design  Document 


3. 3. 6. 8. 9. 9. 9. 3. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 9. 9. 3. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials . Sys tem_Func t ions ) 
package  body  Degree_Operations  is 


- instantiated  package- 


package  Degree_Hath_Lib  is  new  Math_Lib  (Real  »>  Degrees); 
package  M_Lib  renames  Degree_Math_Lib; 


- renamed  functions  within  Degree_Math_Lib 


function  AdaSin  (Input  :  Degrees) 

return  Degrees  renames  M_Lib.SinD; 
function  Ada_Cos  (Input  :  Degrees) 

return  Degrees  renames  M_Lib.CosD; 
function  Ada  Tan  (Input  :  Degrees) 

return  Degrees  renames  M_Lib.TanD; 
function  Ada  Arcsin  (Input  :  Degrees) 

return  Degrees  renames  H_Lib.AsinD; 
function  Ada  Arccos  (Input  :  Degrees) 

return  Degrees  renames  M_Lib.AcosD; 
function  Ada_Arctan  (Input  :  Degrees) 

return  Degrees  renames  M_Lib.AtanD; 

end  Degree_Operations; 


3. 3. 6. 8. 9. 9. 9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 8. 9. 9. 9. 3. 8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 9. 9. 3. 9  LLCSC  DESIGN 
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3.3.6.8.9.9.9.3.10  UNIT  DESIGN 

3.3.6.8.9.9.9.3.10.1  SIN  UNIT  DESIGN  (CATALOG  #P786-0) 

This  functions  returns  the  sine  of  an  angle  with  units  of  degrees. 

3.3.6.8.9.9.9.3.10.1.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.3.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.3.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Degrees 

In 

|  Angle  for  which  a  sine  is  desired  | 

3.3.6.8.9.9.9.3.10.1.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.3.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.3.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Sin  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Sin( input ) ) ; 
exception 

when  M_Lib.ROprand  =>  raise  Invalid_Operand; 
when  M  Lib.FloUndMat  =>  raise  Underflow; 
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3.3.6.8.9.9.9.3.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  for  the  package  specification  of  Degree_Operations: 


|  Name  |  Type  |  Description 


Degrees 
Sin  Cos  Ratio 


floating 
point  type 
floating 
point  type 


Data  type  describing  units  of  angles 

Data  type  describing  output  values  from  sine 
and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name  | 

|  Description  | 

Invalid  Operand 

|  The  input  value  is  in  an  improper  format  not 

j  accepted  by  the  operating  system 

Underflow 

|  A  floating  point  underflow  was  encountered  during 

the  calculations 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Degree_Operations: 


|  Name 

1  Type 

Description  | 

|  Ada_Sin 

|  function 

Sine  function  handling  units  of  degrees  j 

3.3.6.8.9.9.9.3.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 

|  When/Why  Raised  | 

|  Invalid  Operand 

I 

|  Underflow 

1 

j  Raised  if  the  format  of  the  input  is  invalid  and  not  | 

]  accepted  by  the  operating  system  j 
|  Raised  if  a  floating  point  underflow  error  occurs  \ 
j  during  computation  j 

3.3.6.8.9.9.9.3.10.2  COS  UNIT  DESIGN  (CATALOG  #P787-0) 

This  function  returns  the  cosine  of  an  angle  with  units  of  degrees. 

3.3.6.8.9.9.9.3.10.2.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.3.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.3.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS! 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Input 

|  Degrees 

1  In 

|  Angle  for  which  a  cosine  is  desired  | 

3.3.6.8.9.9.9.3.10.2.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.3.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.3.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Cos  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Cos(input)) ; 
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exception 

when  M_Lib.ROprand  =>  raise  Invalid_Operandj 
when  M_Lib.FloUndHat  =>  raise  Underflow; 

end  Cos; 

3.3.6.8.9.9.9.3.10.2.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  for  the  package  specification  of  Degree_Operations: 


|  Name 

Type 

Description  | 

Degrees 

floating 
point  type 

Data  type  describing  units  of  angles 

Sin  Cos  Ratio 

floating 

Data  type  describing  output  values  from  sine 

point  type 

and  cosine  functions  and  input  values  to 

arcsine  and  arccosine  functions 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

i 

|  Underflow 

|  The  input  value  is  in  an  improper  format  not 
j  accepted  by  the  operating  system 
j  A  floating  point  math  underflow  error  has  occurred 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Degree_Operations: 


|  Name 

1  Type 

Description  | 

|  Ada_Cos 

|  function 

Cosine  function  handling  units  of  degrees  | 

LTXWV  W  LfliAJV. 
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3.3.6.8.9.9.9.3.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  When/Why  Raised 


|  Invalid_Operand  |  Raised  if  the  input  value  has  an  improper  format  which  is| 
j  j  not  accepted  by  the  operating  system  j 
j  Underflow  j  Raised  if  a  floating  point  math  underflow  error  occurs  j 
j  j  during  computation  j 


3.3.6.8.9.9.9.3.10.3  TAN  UNIT  DESIGN  (CATALOG  #P788-0) 

This  function  returns  the  tangent  of  an  angle  with  units  of  degrees. 

3.3.6.8.9.9.9.3.10.3.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.3.6.8.9.9.9.3.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.3.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  j 

|  Mode 

|  Description  .  | 

|  Input 

|  Degrees 

1  In 

|  Angle  for  which  a  tangent  is  desired) 

3.3.6.8.9.9.9.3.10.3.4  LOCAL  DATA 
None. 

3.3.6.8.9.9.9.3.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.3.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Tan  (Input  :  Degrees)  return  Tan_Ratio  is 
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begin 

return  Tan_Ratio(Ada_Tan(Input)); 
exception 

when  M_Lib..ROprand  =>  raise  Invalid_Operand; 
when  H_Lib.FloOveMat  =>  raise  Overflow; 

end  Tan; 


3.3.6.8.9.9.9.3.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  for  the  package  specification  of  Degree_Operations: 


|  Name 

Type  |  Description  | 

|  Degrees 

floating  |  Data  type  describing  units  of  angles 

1 

point  type  | 

|  Tan  Ratio 

floating  j  Data  type  describing  output  values  from 

point  type  j  tangent  function  and  input  values  to 

1 

j  arctangent  function 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

Invalid  Operand 

The  input  value  is  in  an  improper  format  not 

accepted  by  the  operating  system 

Overflow 

A  floating  point  math  overflow  error  has  occurred 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Degree_Operations: 


j 

i 


3 
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|  Name 

1  Type 

Description  | 

|  Ada_Tan 

|  function 

Tangent  function  handling  units  of  degrees  | 

3.3.6.8.9.9.9.3.10.3.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

[  Vhen/Vhy  Raised  [ 

|  Invalid  Operand 

1  "  1 
|  Overflow 

1 

[  Raised  if  the  input  value  has  an  improper  format  which  is | 
j  not  accepted  by  the  operating  system  j 
j  Raised  if  a  floating  point  overflow  error  is  encountered  j 
|  during  computations  j 

3.3.6.8.9.9.9.3.10.4  ARCSIN  UNIT  DESIGN  (CATALOG  #P789-0) 

This  function  returns  the  Arcsin,  in  units  of  Degrees,  of  an  input  value.  The 
input  value  must  not  be  greater  than  1.0  or  less  than  -1.0. 

3.3.6.8.9.9.9.3.10.4.1  REQUIREMENTS  ALLOCATION 
See  top  header. 


3.3.6.8.9.9.9.3.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.3.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Input 

|  Sin_Cos_Ratio  | 

!  In 

|  Value  which  an  arcsine  is  desired  | 

3.3.6.8.9.9.9.3.10.4.4  LOCAL  DATA 


None. 
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3.3.6.8.9.9.9.3.10.4.5 


PROCESS  CONTROL 


Not  applicable. 


3.3.6.8.9.9.9.3.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  Ada_Arcsin(Degrees(Input)) ; 
exception 

when  M_Lib.R0prand  *>  raise  Invalid_Operand; 
when  M_Lib.InvArgMat  «>  raise  Invalid_Argument; 

end  Arcsin; 


3.3.6.8.9.9.9.3.10.4.7  UTILIZATION  OP  OTHER  ELEMENTS 


UTILIZATION  OP  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements'  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  for  the  package  specification  of  Degree_Operations: 


|  Name 

Type 

Description  | 

Degrees 

floating 
point  type 

Data  type  describing  units  of  angles  j 

Sin  Cos  Ratio 

floating 

Data  type  describing  output  values  from  sine 

point  type 

and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


ima«r%niU\»iimRAar\anmnMn  mw\nr\»n an 


CAMP  Software  Detailed  Design  Document 


Page  1592 


|  Name 

|  Description  J 

|  Invalid  Operand 

1 

|  Invalid  Argument 

1 

|  The  input  value  is  in  an  improper  format  not  | 
j  accepted  by  the  operating  system  | 
j  The  input  value  is  an  a  range  unacceptable  to  the  j 
j  function  being  called  j 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Degree_Operations: 


|  Name  | 

Type 

Description  | 

|  Ada_Arcsi.n  | 

function 

Arcsine  function  handling  units  of  degrees  | 

3.3.6.8.9.9.9.3.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  | 

|  When/Why  Raised  | 

|  Invalid  Operand 

1  "  1 

|  Invalid  Argument 

1  "  ! 

Raised  if  the  input  value  is  in  an  improper  format  that 
is  not  accepted  by  the  operating  system 

Raised  if  the  absolute  value  of  the  input  greater  than 

1.0 

3.3.6.8.9.9.9.3.10.5  ARCCOS  UNIT  DESIGN  (CATALOG  #P790-0) 

This  function  returns  the  Arccos,  in  units  of  Degrees,  of  an  input  value.  The 
absolute  value  of  the  input  must  not  be  greater  than  1.0. 


3.3.6.8.9.9.9.3.10.5.1  REQUIREMENTS  ALLOCATION 


See  top  header. 


3.3.6.8.9.9.9.3.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.8.9.9.9.3.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Input 

|  Sin_Cos_Ratio 

1  In 

|  Value  for  which  an  arccosine  is  desired  | 

3.3.6.8.9.9.9.3.10.5.4  LOCAL  DATA 
None. 


3.3.6.8.9.9.9.3.10.5.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.9.9.3.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  AdaArccos  (Degrees  (input )) ; 
exception 

when  M_Lib.ROprand  ->  raise  Invalid_Operand; 
when  M_Lib.InvArgMat  »>  raise  Invalid_Argument; 

end  Arccos; 


3.3.6.8.9.9.9.3.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  for  the  package  specification  of  Degree_Operations:  ■ 


I 
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|  Name  |  Type  |  Description 


Degrees 
Sin  Cos  Ratio 


floating 
point  type 
floating 
point  type 


Data  type  describing  units  of  angles 

Data  type  describing  output  values  from  sine 
and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  Invalid  Argument 

1 

|  The  input  value  is  in  an  improper  format  not  | 
j  accepted  by  the  operating  system  j 
j  The  input  value  is  an  a  range  unacceptable  to  the  | 
j  function  being  called  j 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  DegreeOperations: 


|  Name  j  Type  |  Description 


|  Ada_Arccos  |  function  |  Arccosine  function  handling  units  of  degrees 


3.3.6.3.9.9.9.3.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised  | 


|  Invalid_Operand  |  Raised  if  the  input  value  is  in  an  improper  format  that 
|  j  is  not  accepted  by  the  operating  system 

j  Invalid_Argument  j  Raised  if  the  absolute  value  of  the  input  is  greater 
1  |  than  1.0 


3.3.6.8.9.9.9.3.10.6  ARCTAN  UNIT  DESIGN  (CATALOG  #P791-0) 

This  function  returns  the  Arctangent,  in  units  of  Degrees,  of  an  input  value. 
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3.3.6.8.9.9.9.3.10.6.1  REQUIREMENTS  ALLOCATION 


See  top  header. 

3.3.6.8.9.9.9.3.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.8.9.9.9.3.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Input 

|  Tan_Ratio  | 

1  In 

|  Value  which  an  arctangent  is  desired  | 

3.3.6.8.9.9.9.3.10.6.4  LOCAL  DATA 
None. 

r 

3.3.6.8.9.9.9.3.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.3.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Arctan  (Input  :  Tan_Ratio)  return  Degrees  is 
begin 

return  Ada_Arctan(Degrees(input)); 
exception 

when  M_Lib.ROprand  »>  raise  Invalid_Operand ; 
end  Arctan; 


3.3.6.8.9.9.9.3.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


« 
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Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  for  the  package  specification  of  Degree_Operations: 


|  Name  |  Type  |  Description 


Data  type  describing  units  of  angles 

Data  type  describing  output  values  from 
tangent  function  and  input  values  to 
arctangent  function 


1  Degrees 

floating 

point  type 

j  Tan  Ratio 

floating 

point  type 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  The  input  value  is  in  an  improper  format  not 
j  accepted  by  the  operating  system 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  DegreeOperations: 


|  Name 

Type 

Description  | 

|  Ada_Arctan 

function 

Arctangent  function  handling  units  of  degrees  | 

3.3.6.8.9.9.9.3.10.6.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  |  Vhen/Vhy  Raised  | 

j  InvalidOperand  |  Raised  if  the  input  value  is  in  an  improper  format  which  | 
j  j  is  not  accepted  by  the  operating  system  j 


3. 3. 6. 8. 9. 9. 9. 4  SQUARE  ROOT  PAUCAGE  DESIGN  (CATALOG  #P792-0) 


This  package  contains  the  function  necessary  to  calculate  the  square  root  of  an 
input  value. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 9. 9. 4.1  REQUIREMENTS  ALLOCATION 

Together  with  the  other  parts  in  the  System_Functions  package,  this  part  meets 
CAMP  requirement  R223. 


3. 3. 6. 8. 9. 9. 9. 4. 2  LOCAL  ENTITIES  DESIGN 
Packages: 

The  following  table  describes  the  packages  maintained  by  this  part: 


|  Name  j 

Type  | 

|  Description  | 

|  New  Math  Lib  | 

i  ‘  i 

1  1 

package 

|  Math  library  where  functions  called  will  have  j 
!  inputs  and  outputs  of  type  Inputs?  output  values  j 
j  will  be  converted  as  required  j 

3. 3. 6. 8. 9. 9. 9. 4. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  at  the  package 
specification  level  of  this  part: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

1  Type 

|  Description 

1 

Inputs  | 

|  floating 

|  Data  type  of  input  values 

1 

point  type 

1 

Outputs  I 

floating 

|  Data  type  of  output  values 

3. 3. 6. 8. 9. 9. 9. 4. 4  LOCAL  DATA 

None. 

3. 3. 6. 8. 9. 9. 9. 4. 5  PROCESS  CONTROL 
Not  applicable. 


Vi  nr  nnr  "ir  *  r*r  y  r  ir"inr~ir'vniWiiirrT,-r  -r  -  -  j  ... 
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3. 3. 6. 8. 9. 9. 9. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials . Sys tem_Func t ions ) 
package  body  Square_Root  is 

- instantiated  package- 

package  New_Math_Lib  is  new  Math_Lib  (Real  =>  Inputs); 
package  M_Lib  renames  New_Math_Lib; 

- functions  used  in  this  package- 

function  Ada_Sqrt  (Input  :  Inputs)  return  Inputs  renames  M_Lib.Sqrt; 
end  Square  Root; 


3. 3. 6. 8. 9. 9. 9. 4. 7  UTILIZATION  OP  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 9. 9. 9. 4. 8  LIMITATIONS 
None. 

3. 3. 6. 8. 9. 9. 9. 4. 9  LLCSC  DESIGN 
None. 

3.3.6.8.9.9.9.4.10  UNIT  DESIGN 
3.3.6.8.9.9.9.4.10.1  SORT  UNIT  DESIGN 

This  function  returns  the  square  root  of  an  input  value.  The  input  value  must 
be  greater  than  or  equal  to  0.0. 


3.3.6.8.9.9.9.4.10.1.1  REQUIREMENTS  ALLOCATION 

Together  with  the  other  parts  in  the  Sys tem_Funct ions  package,  this  part  meets 
CAMP  required  R223. 
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3.3.6.8.9.9.9.4.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.9.9.4.10.1.3  INPUT/OUTPUT 
FORHAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Inputs 

In 

|  Value  for  which  a  square  root  is  desired  | 

3.3.6,8.9.9.9.4.10.1.4  LOCAL  DATA 


None. 


3.3.6.8.9.9.9.4.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.4.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  SqRt  (Input  :  Inputs)  return  Outputs  is 
begin 

return  Outputs(Ada_Sqrt( input)); 
exception 

when  MLib.ROprand  *>  raise  Invalid_Operand; 
when  H_Lib.SquRooNeg  *>  raise  Square_Roo t_Negat i ve ; 

end  SqRt; 


3.3.6.8.9.9.9.4.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 


Data  types: 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  to  the  Square_Root  package: 


|  Name 

Type 

Description  | 

|  Inputs 

floating 

Data  type  of  input  values  | 

1 

point  type 

i 

Data  type  of  output  values  | 

|  Outputs 

floating 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  ‘■his  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name 

|  Description  | 

|  Invalid  Operand 

1 

|  Square  Root  Negative 

1 

|  The  input  value  is  in  an  improper  format  not  | 
j  accepted  by  the  operating  system  j 
j  An  attempt  was  made  to  take  the  square  root  of  a  j 
j  negative  number  1 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  SquareJRoot: 

|  Name  |  Type  | 

Description  | 

|  Ada_Sqrt  |  function  | 

Square  root  function  | 

3.3.6.8.9.9.9.4.10.1.8 

LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name 

|  When/Why  Raised  | 

|  Invalid  Operand 

1 

|  Square  Root  Negative 

1  "  " 

|  Raised  if  the  input  value  has  an  invalid  format 
j  which  is  not  accepted  by  the  operating  system 
j  Raised  if  an  attempt  is  made  to  take  the  square 
[  root  of  a  negative  value 

3. 3. 6. 8. 9. 9. 9. 5  BASE_10_L0GARITHM  PACKAGE  DESIGN  (CATALOG  #P793-0) 

This  package  contains  the  functions  necessary  to  calculate  the  base  10 
logarithm  of  an  input  value. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 9. 9. 5.1  REQUIREMENTS  ALLOCATION  j 

Together  with  the  other  parts  in  the  System_Functions  package,  this  part  meets 

CAMP  requirement  R223.  i 

j 

3. 3. 6. 8. 9. 9. 9. 5.2  LOCAL  ENTITIES  DESIGN  j 

None.  I 


3. 3. 6. 8. 9. 9. 9. 5. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  this  part's  package 
specification: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description 

1 

|  Inputs 

floating 

j  Data  type  of  input  values 

1  • 

1 

point  type 

1 

1 

|  Outputs 

floating 

|  Data  type  of  output  values 

1 

3. 3. 6. 8. 9. 9. 9. 5. 4  LOCAL  DATA 

None. 


3. 3. 6. 8. 9. 9. 9. 5. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 8. 9. 9. 9. 5. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials. System  Functions) 
package  body  Base_10_LogaritKm  is 


- instantiated  package- 


package  New_Math_Lib  is  new  Math_Lib  (Real  =>>  Inputs); 
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package  M_Lib  renames  New_Math_Lib; 


- functions  used  in  this  package- 

function  Ada_LoglO  (Input  :  Inputs)  return  Inputs  renames  M_Lib.LoglO; 
end  Base  10  Logarithm; 


3. 3. 6. 8. 9. 9. 9. 5. 7  UTILIZATION  OF  OTHER  ELEHENTS 
None. 


3. 3. 6. 8. 9. 9. 9. 5. 8  LIMITATIONS 
None. 


3. 3. 6. 8. 9. 9. 9. 5. 9  LLCSC  DESIGN 


None. 


3.3.6.8.9.9.9.5.10  UNIT  DESIGN 

3.3.6.8.9.9.9.5.10.1  L0G_10  UNIT  DESIGN 

This  function  calculates  the  base  10  logarithm  of  an  input  value.  The  input 
value  must  be  greater  than  0.0. 


3.3.6.8.9.9.9.5.10.1.1  REQUIREMENTS  ALLOCATION 

Together  with  the  other  parts  in  the  System_Functions  package,  this  parts  meets 
CAMP  requirement  R223. 


3.3.6.8.9.9.9.5.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.8.9.9.9.5.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  following  table 

descr 

ibes  this  part's  formal  parameters: 

|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Input 

|  Inputs  | 

In 

|  Value  for  which  a  base  10  log  is  desired  | 

«  tla  l  ajlx  w.LnjA  iTL  .n  sz  v.v  uuui: 
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3.3.6.8.9.9.9.5.10.1.4  LOCAL  DATA 


None. 


3.3.6.8.9.9.9.5.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.9.9.5.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Log_10  (Input  :  Inputs)  return  Outputs  is 
begin 

return  Outputs (Ada_LoglO( input ) ) ; 
exception 

when  M_Lib.Roprand  «>  raise  Invalid_Operand; 
when  HJLib.LogZerNeg  »>  raise  Log_Zero_Negative; 

end  LoglO} 


3.3.6.8.9.9.9.5.10.1.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OP  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  to  the  package  specification  of  Base_10_Logarithm: 


|  Name 

Type 

Description  | 

Inputs 

Outputs 

floating 
point  type 
floating 

Data  type  of  input  values  i 

1 

Data  type  of  output  values  | 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this1  part  and  defined 
in  the  package  specification  of  System_Functions: 
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|  Name 


Description 


|  Invalid_Operand  |  The  input  value  is  in  an  improper  format  not  j 
j  ~  j  accepted  by  the  operating  system  j 
j  Log_Zero_Negative  j  An  attempt  was  made  to  take  a  log  of  a  zero  or  j 
j  j  negative  value  value  j 


Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Base_10_Logarithm: 


|  Name 

Type 

Description  | 

|  Ada_LoglO 

Function 

Calculates  the  base  10  logarithm  of  a  value  | 

3.3.6.8.9.9.9.5.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  | 

|  Vhen/Vhy  Raised  | 

|  Invalid  Operand 

Raised  if  th'j  format  of  input  value  is  invalid  and  not 

1  "  1 

accepted  by  the  operating  system 

i  Log  Zero  Negative  | 

Raised  if  an  attempt  is  made  to  take  the  log  of  a  zero 

1  “  1 

or  negative  value 

3. 3. 6. 8. 9. 9. 9. 6  BASE_N_LOGARITHM  PACKAGE  DESIGN  (CATALOG  #P794-0) 

This  package  contains  the  functions  necessary  to  calculate  the  base  n  logarithm 
of  an  input  value. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 8. 9. 9. 9. 6.1  REQUIREMENTS  ALLOCATION 

Together  with  the  other  parts  in  the  System_Functions  package,  this  part  meets 
CAMP  requirement  R223. 

3. 3. 6. 8. 9. 9. 9. 6. 2  LOCAL  ENTITIES  DESIGN 


Subprograms : 


This  package  contains  a  sequence  of  statements  at  the  end  of  the  package  body 
which  are  executed  when  this  package  is  elaborated.  This  code  initializes  the 
object  LoglO_of_Base_N. 
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Packages : 

The  following  table  describes  the  packages  contained  in  this  part: 


|  Name 

Type 

Description  | 

|  New  Math  Lib 

1  "  " 

1 

package 

Math  library  where  functions  called  will  have  | 

inputs  and  outputs  of  type  Inputs;  output  values  j 
will  be  converted  as  required  j 

3. 3. 6. 8. 9. 9. 9. 6. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  described  in  the  this  part's 
package  specification: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

Inputs 

floating 

Data  type  of  input  values 

point  type 

Outputs 

floating 

Data  type  of  output  values 

point  type 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name  | 

Type 

Value 

|  Description  | 

|  Base_N  | 

POSITIVE 

N/A 

j  Determines  the  root  of  the  logarithm  | 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  (operators) 
required  by  this  part: 


! 

|  Left  Input 

|  Right  Input 

|  Result  | 

|  Name 

1  Type 

1  Type 

1  Type  | 

j  "*•  i 

|  Outputs 

j  Outputs 

|  Outputs  | 

|  "/" 

|  Inputs 

j  Inputs 

j  Outputs  j 

l/.VX/J*  |L*M  .TV  XV  KV  ttY  >TU  XV  MiXgXV  CV  jfVrU  XV  *y XVKV  Ifinfll  »fU  HV  KWHl  lft.  »ft. 
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3. 3. 6. 8. 9. 9. 9. 6. 4  LOCAL  DATA 
Data  objects: 

The  following  describes  the  local  data  maintained  by  this  part: 


|  Name  | 

1  Type 

|  Description  | 

|  One  Over  LoglO  of  Base  N  | 
1  "  "  "  1 

|  Outputs 

|  The  inverse  value  of  the  log  base  10  | 

[  of  the  input  value  Base_N  j 

3. 3. 6. 8. 9. 9. 9. 6. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 8. 9. 9. 9. 6. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials . Sys tem_Func t ions ) 
package  body  Base_N_Logarithm  is 

- instantiated  package- 

package  New_Math_Lib  is  new  Math_Lib  (Real  *>  Inputs); 
package  M_Lib  renames  New_Math_Lib; 

- local  variables- 

0ne_0ver_Logl0_of_Base_N  :  Inputs; 

- functions  used  in  this  package- 

function  Ada_LoglO  (Input  :  Inputs)  return  Inputs  renames  M  Lib.LoglO; 


- begin  package  body  Base_N_Logarithm 

begin 

0ne_0ver_Logl0_of_Base_N  :=  1.0  /  Ada_LoglO(Inputs(base_n)); 
exception 


lw* lmi  uv  trw  uvunKra  iwuvirn  wftAjm  int  uw 
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when  M_Lib.R0prand  =>  raise  Invalid_Operand; 
end  Base_N_Logarithm; 

3. 3. 6. 8. 9. 9. 9. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 8. 9. 9. 9. 6. 8  LIMITATIONS 


The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Invalid  Operand 

1 

|  Raised  if  the  format  of  the  value  of  Base_N  is  invalid  | 
j  and  not  accepted  by  the  operating  system""  j 

3. 3. 6. 8. 9. 9. 9. 6. 9 

LLCSC  DESIGN 

None. 

3.3.6.8.9.9.9.6.10 

UNIT  DESIGN 

3.3.6.8.9.9.9.6.10.1  LOG  N  UNIT  DESIGN 


This  function  calculates  the  base  n  logarithm  of  an  input  value, 
following  formula  to  do  this: 


It  uses  the 


base  n  log  (input)  := 


base  10  log  (input) 
base  10  log  (n) 


3.3.6.8.9.9.9.6.10.1.1  REQUIREMENTS  ALLOCATION 

Together  with  the  other  parts  in  the  System_Functions  package,  this  parts  meets 
CAMP  requirement  R223. 

3.3.6.8.9.9.9.6.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.8.9.9.9.6.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


CAMP  Software  Detailed  Design  Document 


Page 


|  Name 

1  Type 

Mode 

|  Description  | 

|  Input 

|  Inputs 

In 

|  Value  for  which  a  base  n  log  is  desired  | 

3.3.6.8.9.9.9.6.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  loglO_of_input 

|  Inputs 

|  Base  10  logarithm  of  input  value  j 

3.3.6.8.9.9.9.6.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.9.9.6.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  LogJN  (Input  :  Inputs)  return  Outputs  is 

— declaration  section 

LoglO_of_Input  :  Inputs? 

- begin  function  Log_N 

begin 

LoglO  of_Input  :=  Ada_LoglO( Input) ? 

return  loglO_of_input  *  One_Over_LoglO_of_Base_N; 

exception 

when  M_Lib.ROprand  =>  raise  Invalid_Operand; 
when  M_Lib.LogZerNeg  =>  raise  Log_Zero_Negative? 
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3.3.6.8.9.9.9.6.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  susaarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  for  the  package  specification  Base_N_Logarithm: 


\  Name 

Type 

Description  | 

|  Inputs 

1 

|  Outputs 

1 

floating 
point  type 
floating 
point  type 

Data  type  of  input  values  | 

1 

Data  type  of  output  values  | 

1 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  System_Functions: 


|  Name  |  Description 


|  InvalidOperand  |  The  input  valve  is  in  an  improper  format  not 

j  j  accepted  by  the  operating  system 

|  Log  Zero  Negative  j  An  attempt  was  made  to  take  a  log  of  a  zero  or 
j  j  negative  value  value 


Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  ancestral  units: 


|  Name  |  Type  |  Description 

j  Ada_LoglO  |  Function  |  Calculates  the  base  10  logarithm  of  a  value 


3.3.6.8.9.9.9.6.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


» ^a  ».  .  -a  t  -a — ft 
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|  Name  |  When/Vhy  Raised 


|  Invalid_Operand  |  Raised  if  the  format  of  the  value  of  Base_N  is  invalid  | 
j  j  and  not  accepted  by  the  operating  system  j 
|  LogZeroNegative  |  Raised  if  the  value  of  Base_N  is  not  greater  than  C  | 


3.3.6.8.9.9.10  UNIT  DESIGN 


None. 
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3.3.6.8.9.10  C0NTINUED_FRACTI0NS  PACKAGE  DESIGN  (CATALOG  #P730-0) 

This  package  contains  generic  functions  providing  Continued  Fractions 
polynomial  solutions  for  the  tangent  and  arctangent  functions.  Provisions  are 
made  for  the  trigonometric  functions  to  handle  units  of  radians. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.8.9.10.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.8.9.10.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.8.9.10.3  INPUT/OUTPUT 
None. 

3.3.6.8.9.10.4  LOCAL  DATA 
fane. 

3.3.6.8.9.10.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 

package  body  Con tinued_Fract ions  is 

package  body  Con tinued_Radian_Operat ions  is  separate; 

end  ContinuedFractions; 

3.3.6.8.9.10.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.8.9.10.8  LIMITATIONS 


None. 
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3.3.6.8.9.10.9  LLCSC  DESIGN 

3.3.6.8.9.10.9.1  C0NTINUED_RADIAN_0PFRATI0NS  PACKAGE  DESIGN  (CATALOG  #P731-0) 

This  package  contains  generic  functions  providing  Continued  Fractions 
polynomial  solutions  for  the  tangent  and  arctangent  functions.  Provisions  are 
made  for  the  trigonometric  functions  to  handle  units  of  radians. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Tan  R 

|  P732-0  | 

j  ArcTanR 

|  P733-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.8.9.10.9.1.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.8.9.10.9.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.8.9.10.9.1.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


|  Radians  |  Floating  Point  |  Angle  expressed  radians  \ 

j  TanRatio  j  Floating  Point  j  Value  of  computed  tangent  function  j 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


j  Name 

Type 

Description  j 

|  Default_Term_Count 

Positive 

Number  of  terms  in  the  calculation  | 
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Subprograms: 


The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  j 

|  "*" 

1 

|  function  | 
1  1 

Overloaded  operator  to  multiply  radians  *  radians  | 

yielding  a  tan_ratio  result.  j 

3,3.6.8.9.10.9.1.4  LOCAL  DATA 
None. 


3.3.6.8.9.10.9.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.10.9.1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials . Con t inuedPrac t ions ) 
package  body  Continued_Radian_Operations  is 


—  Tangent  functions 


function  Tan_R  (Input  :  Radians; 

Term_Count  :  Positive  :-Default_Term_Count  ) 

return  Tan  Ratio  is 


InputSquared  :  Tan_Ratio; 

Inter~Result  :  Tan_Ratio; 

Mod_Term  :  Integer; 

Result  :  Tan_Ratio; 

begin 

ModTerm  :«  2  *  Term_Count  -  1; 

InputSquared  :«  Input  *  Input; 

Inter  Result  :»  Input_Squared; 

Divide: 

loop 

Inter_Result  :■  Input_Squared/(Tan_Ratio(Mod_Term)  -  Inter_Ress*lt); 
Hod_Ter®  :®  Mod_Term  -  2; 
exit:  when  Hod_Term  <«  1; 
end  loop  Divide; 

Result  :»  Tan_Ratio(Input)  /  (1.0  -  Inter_Result); 
return  Result; 
end  Tan_R; 

-  Arctangent  functions 
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function  Arctan_R  (Input  :  Tan_Ratio; 

Term_Count  :  Positive  :=  Default_Term_Count  ) 

return  Radians  is 


Count 

Input_Squared 

Inter_Result 

Hod_Term 

Result 


Positive  Term_Count; 
Tan_Ratio; 

Tan_Ratio; 

Integer; 

Radians; 


begin 

Mod_Term  :«  2  *  Ter*_Count  -  1; 

InputSquared  :*  Input  *  Input; 

Inter~Result  :»  InputSquared; 

Divide: 

loop 

InterResult  :«  Input_Squared  / 

(Tan_Ratio(Mod_Term)  + 
Tan_Ratio(Count  *  Count)  * 
Inter_Result); 

Count  :»  Count  -  1; 

Mod  Term  :»  Hod_Term  -  2; 
exit  when  Mod_ter«  <■  1; 
end  loop  Divide;- 

Result  :«*  Radians(Input  /  (1.0  +  Inter  Result)) ; 
return  Result; 
end  Arctan_R; 


end  ContinuedRadianOperations; 


3.3.6.8.9.10.9.1.7  UTILIZATION  OP  OTHER  ELEMENTS 
None. 


3.3.6.8.9.10.9.1.8  LIMITATIONS 
None. 

3.3.6.8.9.10.9.1.9  LLCSC  DESIGN 
None. 


3.3.6.8.9.10.9.1.10  UNIT  DESIGN 


None. 


3.3.6.8.9.10.10  UNIT  DESIGN 


None 
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3.3.6.8.9.11  CODY_WAITE  PACKAGE  DESIGN  (CATALOG  #P880-0) 

This  packages  contains  generic  functions  providing  Cody  Waite  polynomial 
solutions  for  a  set  of  trigonometric  functions.  Provisions  are  made  for  the 
trigonometric  functions  to  handle  units  of  radians  or  degrees. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.8.9.11.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R222. 

3.3.6.8.9.11.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.8.9.11.3  INPUT/OUTPUT 
None. 

3.3.6.8.9.11.4  LOCAL  DATA 
None. 

3.3.6.8.9.11.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.8.9.11.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 
package  body  Cody_Vaite  is 

package  body  Cody_Natural_Log  is  separate; 

package  body  Cody_Log_Base_N  is  separate; 

end  CodyWaite; 

3.3.6.8.9.11.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3.3.6.8.9.11.8  LIMITATIONS 


None. 


3.3.6.8.9.11.9  LLCSC  DESIGN 

3.3.6.8.9.11.9.1  CODY_NATURAL_LOG  PACKAGE  DESIGN  (CATALOG  #P881-0) 

This  package  contains  a  generic  package  providing  Cody  Waite  polynomial 
solutions  for  the  natural  logarithm  function.  Provisions  are  made  for  the 
natural  log  function  to  handle  units  of  real.  Outputs  are  also  of  type  real. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Nat_Log 

|  P882-0  | 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.8.9.11.9.1.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.8.9.11.9.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.8.9.11.9.1.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  the  package: 


|  Name 

Type 

Description  | 

Inputs 

Floating  point 

Floating  point  Input  to  natural  log 

function. 

Outputs 

Floating  point 

Floating  point  Output  of  natural  log 

function. 

FORMAL  PARAMETERS: 
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The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

|  Name 

1  Type 

|  Description  | 

|  Nat_Log 

|  Input 

|  Inputs 

|  Input  for  natural  log  function  | 

3.3.6.8.9.11.9.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

Description  | 

CO 

constant 

0.70710  6781 

Square  root  of  0.5  | 

Cl 

constant 

8  #0.543  # 

|  octal  constant 

C2 

constant 

-  0.21213  4440e-3 

calculation  constant 

AO 

constant 

-  64.12493  34 

used  in  R  function 

A1 

constant 

16.38394  36 

used  in  R  function 

.  A2 

constant 

-  0.78956  T129 

used  in  R  function 

BO 

constant 

-  769.49932  1 

used  in  R  function 

B1 

constant 

312.03222  1 

used  in  R  function 

B2 

constant 

-  35.66797  77 

used  in  R  function 

B3 

constant 

1.0 

used  in  R  function 

3.3.6.8.9.11.9.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.11.9.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials. Cody_Vai te) 
package  body  Cody_Natural_Log  is 

0.70710  67811  86547  52440?  —  SQRT(0.5) 
8  #0.543  #?  " 

0700021  21944  40054  69058  2767? 


64.12494  34237  45581  147; 
16.38394  35630  21534  222; 
0.78956  11288-74912  57267; 
769.49932  10849  48797  77; 
312 . 03222"09192~45328"44 ; 

35 . 66797~77390~34646"171 ; 

1.0000  00000  00000  0000; 


CO  :  constant  Inputs 
Cl  :  constant  Inputs 
C2  :  constant  Inputs 


- used  in  R  function 


AO 

A1 

A2 

BO 

B1 

B2 

B3 


constant  Inputs 
constant  Inputs 
constant  Inputs 
constant  Inputs 
constant  Inputs 
constant  Inputs 
constant  Inputs 
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function  Nat_Log  (Input  :  Inputs)  return  Outputs  is 


F 

Inter_Result 

N 

Result 

Sign 


XN 

y 

z 


Zden 

Znum 


Inputs; 

Inputs; 

INTEGER; 

Outputs; 

Inputs; 

Inputs; 

Inputs; 

Inputs; 

Inputs; 

Inputs; 


function  R(  Z  :  Inputs  )  return  Inputs  is 


W  s  Inputs  :»  Z  *  Z; 


begin 

return  Z  +  Z  *  W  *  (AO  +  (A1  +  A2  *  V)  *  V)  / 
(BO  +  (B1  +  (B2  +  V)  *  V)  *  V); 

end  R; 


procedure  Defloat (  Input  : 

Sign  : 
Mantissa  : 
Exponent  : 


Inputs; 
out  Inputs; 
out  Inputs; 
out  INTEGER)  is 


XNorra  s  Inputs  :»  Input; 

N  j  INTEGER  0; 

begin 

Sign  ;«  1.0; 
if  X_Norm  *  0.0  then 
Exponent  :*  0; 

Mantissa  0.0; 
return; 

els if  X_Norm  <0.0  then 
X  Norm  ;«  -  X_Norm; 

Sign  :»  -1.0; 
end  if; 

if  X_Norm  >-  1.0  then  —  reduce  to  0.5  ..  1.0 

Coarsel: 

while  X  Norm  >*  1024.0  loop  —  coarse  reduction 
N  :-"N  +  10; 

X  Norm  :»  X_Norm  *  0.00097_65625;  —  exact  on  binary  machine 

end  loop  Coarsel; 

Finel: 

while  X  Norm  >«  1.0  loop  —  fine  reduction 
N  :»"N  +  1; 

X  Norm  :*  X_Norm  *  0.5;  —  exact  on  binary  machine 

end  loop  Finel; 

else 

Coarse2: 

while  X_Norm  <  0.00097  65625  loop  —  coarse  reduction 
N  N  -  10; 

X  Norm  :*•  X_Norm  *  1024.0;  —  exact  on  binary  machine 

end  Toop  Coarse2; 
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Fine2: 

while  X_Norm  <  0.5  loop  —  fine  reduction 

N  :=  N  -  1; 

X  Norm  :=  X  Norm  *  2.0;  —  exact  on  binary  machine 

end  loop  Fine2'; 
end  if; 

Exponent  s=  N; 

Mantissa  :=  X_Norm; 
end  Defloat; 

begin 

Defloat (  Input,  Sign,  F,  N  ); 

Znum  :*  F  -  0.5; 
if  F  >  CO  then 

Znum  :=  Znum  -  0.5; 

Zden  :*  F  *  0.5  +  0.5; 
else 

N  :■  N  -  1) 

Zden  :»  Znum  *  0.5  +  0.5; 
end  if; 

Z  :*  Znum  /  Zden; 
if  N  «  0  then 

InterJResult  R(  Z  ); 
else 

Xn  :»  Inputs(N); 

InterJResult  (Xn  *  C2  +  R(  Z  ))  +  Xn  *  Cl; 
end  if;  ~ 

Result  0utputs(Inter_Result); 
return  Result; 
end  Nat_Log; 

end  Cody_Natural_Log; 


3.3.6.8.9.11.9.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.8.9.11.9.1.8  LIMITATIONS 
None. 


3.3.6.8.9.11.9.1.9  LLCSC  DESIGN 


None. 


3.3.6.8.9.11.9.1.10  UNIT  DESIGN 


None 
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3.3.6.8.9.11.9.2  C0DY_L0G_BASE_N  PACKAGE  DESIGN  (CATALOG  #P883-0) 

This  packages  contains  generic  functions  providing  Cody  Waite  polynomial 
solutions  for  the  log  function  for  base  N. 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part: 


|  Name 

|  Catalog  _# 

|  Log_Base_N 

|  P884-0  I 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3.3.6.8.9.11.9.2.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.8.9.11.9.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.11.9.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type  | 

|  Description  | 

Inputs 

|  Floating  point 

|  Floating  point  input  to  the  function 

Outputs 

j  Floating  point 

|  Floating  point  output  to  the  function 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  th* ?  part: 


|  Name 

1  Type 

Value 

Description 

1 

|  Base_N 

|  Positive 

defualt  =  10 

Bare  to  operate  in 

1 

FORMAL  PARAMETERS: 
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The  following  table  describes  the  formal  parameters  for  the  functions  contained 
in  this  part: 


|  Function 

|  Name 

Type  | 

Description  | 

|  Log_Base_N 

|  Input 

Floating 

Input  upon  which  to  apply  the  funtion  | 

3.3.6.8.9.11.9.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  | 

Type  |  Value 

|  Description  | 

|  Local  Natural  Log  | 

1  “  1 

Instantiated  |  N/A 
package  j 

|  Natural  log  package  used  in  j 

j  calculating  log  base  n  j 

3.3.6.8.9.11.9.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.8.9.11.9.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( Polynomials . Cody_Vai te) 
package  body  Cody_Log_Base_N  is 

package  Local_Natural_Log  is  new  Cody_Natural_Log(  Inputs  *>  Inputs, 

Outputs  *>  Outputs); 


package  body  Log_Base_N  is 

0ne_0ver_Base_Log  :  constant  Outputs  :*  1.0  / 

Local_Natural_Log.Nat_Log(  Inputs(Base_N)  ); 

function  Log_N  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N; 

end  Log_Base_N; 

end  Cody_Log_Base_N; 
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3.3.6.8.9.11.9.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.8.9.11.9.2.8  LIMITATIONS 
None. 

3.3.6.8.9.11.9.2.9  LLCSC  DESIGN 
None. 

3.3.6.8.9.11.9.2.10  UNIT  DESIGN 
None. 

3.3.6.8.9.11.10  UNIT  DESIGN 
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3.3.6.8.9,12  REDUCTION_OPERATIONS  PACKAGE  DESIGN  (CATALOG  #P1080-0) 

This  package  contains  reduction  functions  providing  reduction  of  the  input 
range  for  sine  and  cosine.  The  sine  range  is  from  Pi  to  -Pi  reduced  to  Pi/2  to 
-Pi/2.  Cosine  reduces  to  0  to  Pi. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.8.9.12.1  REQUIREMENTS  ALLOCATION 
None. 


3.3.6.8.9.12.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.8.9.12.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part:  • 


|  Name 

1  Type  | 

|  Description  | 

|  Inputs  1 

1  i 

!  Floating  | 
j  point 

|  The  type  of  the  input  value  to  be  reduced 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

1  Type 

|  Mode  | 

Value  | 

Description 

1 

|  Quarter_ 

|  Cycle 

1 

Inputs 

1  in  | 

1  1 

1  1 

Pi  /  2  I 

1 

1 

reduction  constant  of  one 
cycle  -  enables  input  to 
, semicircles,  or  degrees 

quarter  of  a| 
be  of  radians j 

1 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

|  Input 

Inputs 

in 

|  Value  to  be  reduced  | 
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3.3.6.8.9.12.4  LOCAL  DATA 


None. 


3.3.6.8.9.12.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.12.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Polynomials) 

package  body  Reduction_Operations  is 

end  Reduction_Operations; 

3.3.6.8.9.12.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.8.9.12.8  LIMITATIONS 


None. 


3.3.6.8.9.12.9  LLCSC  DESIGN 
None. 


3.3.6.8.9.12.10  UNIT  DESIGN 

3.3.6.8.9.12.10.1  SINE_REDUCTION  UNIT  DESIGN  (CATALOG  #P1082~0) 

This  function  reduces  input  for  the  sine  function  from  a  range  between  Pi  and 
-Pi  to  a  range  between  Pi/2  and  -Pi/2. 


3.3.6.8.9.12.10.1.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.8.9.12.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


j 
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3.3.6.8.9.12.10.1.3  I.NPUT/OUTPUT 
Nona. 

3.3.6.8.9.12.10.1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

|  Description  | 

|  Result 

Inputs 

|  Result  of  calculations  | 

3.3.6.8.9.12.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.8.9.12.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Sine_Reduction(  Input  :  Inputs  )  return  Inputs  is 
Result  :  Inputs; 

begin 

if  Input  >  Quarter_Cycle  then 
Result  :*  Half_Cycle  -  Input; 
els if  Input  <  -  Quarter  Cycle  then 
Result  :=  -  Half_CycIe  -  Input; 
else 

Result  :=  Input; 
end  if; 

return  Result; 
end  Sine  Reduction; 


3.3.6.8.9.12.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.8.9.12.10.1.8  LIMITATIONS 


None. 


3.3.6.8.9.12.10.2  COSINE_REDUCTION  UNIT  DESIGN  (CATALOG  #P1084-0) 

This  function  reduces  input  for  the  cosine  function  from  a  range  between  Pi  and 
-Pi  to  a  range  between  0  and  Pi. 
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3.3.6.8.9.12.10.2.1  REQUIREMENTS  ALLOCATION 


None. 


3.3.6.8.9.12.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.8.9.12.10.2.3  INPUT/OUTPUT 


None. 


3.3.6.8.9.12.10.2.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Description  | 

|  Result 

Inputs 

Result  of  calculations  | 

3.3.6.8.9.12.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.8.9.12.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Cosine_Reduction(  Input  :  Inputs  )  return  Inputs  is 
Result  :  Inputs; 
begin 

return  ABS(  Input  ); 
end  Cosine  Reduction; 


3.3.6.8.9.12.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.8.9.12.10.2.8  LIMITATIONS 


None. 
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3.3.6.8.10  UNIT  DESIGN 


None. 
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with  Math_Lib; 

package  body  Polynomials  is 

package  body  Chebyshev  is  separate; 

package  body  Cody_Waite  is  separate; 

package  body  Continued_Fractions  is  separate; 

package  body  Fike  is  separate; 

package  body  General_Polynomial  is  separate; 

package  body  Hart  is  separate; 

package  body  Hastings  is  separate; 

package  body  Modi£ied_Nevton_Raphson  is  separate 

package  body  Nevton_Raphson  is  separate; 

package  body  System_Functions  is  separate; 

package  body  Taylor_Series  is  separate; 

package  body  ReductionOperations  is  separate; 


end  Polynomials; 
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separate  (Polynomials) 
package  body  Chebyshev  is 

package  body  Chebyshev_Radian_Operations  is  separate; 
package  body  Chebyshev_Degree_Operations  is  separate; 
package  body  Chebyshev_Semicircle_Operations  is  separate; 


end  Chebyshev; 
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separate  ( Polynomials. Chebyshev) 

package  body  Chebyshev_ Radian_Operations  is 

Sin_R_C0  :  constant  :=  1.34752_631; 

Sin_R_Cl  :  constant  :=  -1.55659_125; 

Sin_R_C2  :  constant  :=  0.22275_7911; 

Sin_K_C3  :  constant  :=  -0.01419_31743; 

Sin_R_C4  :  constant  :=  0.00051_19072_74; 

Sin_R_B5  :  constant  :=  -0,00001_18935_046; 

function  Sin_R_5term(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_4  :  Real; 

Inter_Result_3  :  Real; 

Inter_Result_2  :  Real; 

Inter_Result_l  :  Real; 

Inter_Result_0  :  Real; 

Result  :  Sin  Cos_Ratio; 

Y  :  Real; 

Y_Squared  :  Real; 

begin 

Y  :»  Input  *  One_Over_Pi;  —  converts  radians  lo  semicircles 

Y_Squared  :*  Y  *  Y; 

Inter_Result_0  :»  4.0  *  Y-_Squared  -  2.0; 

Inter_Result_4  :«  Inter_Result_0  *  Sin_R_B5  +  Sin_R_C4; 
Inter_Result_3  :»  Inter_Result_0  *  Inter  Result_4~-  Sin_R_B5  + 
Sin_R“C3;  “ 

Inter_Result  2  ;»  Inter  Result_0  *  Inter_Result_3  -  Inter_Result_4  + 
Sin_R_C2; 

Inter_Result  1  :»  Inter_Result_0  *  Inter_Result_2  -  Inter_Result_3  + 
Sin_R~Cl ; 

Inter_Result_0  :=  Inter  Result_0  *  Inter_Result_l  -  Inter_Result_2  + 
Sin_R_C0; 

Inter_Result_0  :=  (InTer_Result_0  -  (2.0  *  Y_Squared  -  1.0)  * 

Inter JSesult_l)  *  Y; 
if  Inter_Result_0  >  1.0  then 
Inter_Result_0  :=  1.0; 
elsif  Inter_Result_0  <  -1.0  then 
Inter_Result_0  7=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(Inter_Result_0); 
return  Result.; 
end  Sin_R_5term; 

end  Chebyshev_Radian_Operations ; 
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separate  (Polynomials. Chebyshev) 

package  body  Chebyshev_Degree_Operations  is 

Sin_D_C0  :  constant  :=  1.34752_631; 
Sin_D_Cl  ;  constant  :=  -1.55659_125; 
Sin_D_C2  :  constant  :=  0.22275_7911; 
Sin_D_C3  :  constant  :=  -0.01419_31743; 
Sin_D_C4  :  constant  ;=  0.00051_19072_74; 
Sin  D  B5  :  constant  :=  -0.00001  18935  046; 


0ne_0ver_180  :  constant  :=  0.00555555555; 

function  Sin_D_5term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

:  Real; 

:  Real; 

:  Real; 

:  Real; 

:  Real; 

s  Sin  Cos_Ratio; 

:  Real; 

:  Real; 

begin 

Y  s*  Input  *  0ne_0ver_180;  —  converts  degrees  to  semicircles 

YSquared  :*  Y  *  Y; 

Inter_Result_0  s*  4.0  *  Y  Squared 2.0; 

Inter_Result_4  :»  Inter_Result_0  *  Sin_D_B5  +  Sin_D_C4; 
Inter_Result_3  ;*  Inter~Result”0  *  Inter_Result_4  -~Sin_D_B5 
+  Sin_D~C3;  ” 

Inter_Result_2  :*  Inter_Result_0  *  Inter_Result_3  -  Inter_Result_4 
+  Sin_D_C2; 

Inter_Result_l  j=  Inter_Result_0  *  Inter_Result_2  -  Inter_Result_3 
+  Sin_D_Cl; 

Inter_Result_0  :=  Inter_Result_0  *  Inter_Result_l  -  Inter_Result_2 
+  Sin_D_C0; 

Inter_Result_0  :=  (Inter_Result_0  -  (2.0  *  Y_Squared  -  1.0)  * 

Inter_Result_l)  *  Y; 
if  Inter_Result_0  >  1.0  then 
Inter~Result_0  :=  1.0; 
elsif  Inter_Result_0  <  -1.0  then 
Inter_Result_0  7^  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(Inter_Result_0); 
return  Result; 
end  Sin  D  5terra; 


Inter_Result_4 

Inter_Result_3 

Inter_Result_2 

Inter_Result_l 

Inter_Result_0 

Result 

Y 

Y  Squared 


end  Chebyshev_Degree_Operations; 


!3T 
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separate  ( Polynomials. Chebyshev) 

package  body  Chebyshev_Semicircle_Operations  is 

Sin_S_C0  :  constant  :=  1.34752_631; 

Sin_S_Cl  :  constant  :=  — 1 . 55659_125 ; 

Sin_S_C2  :  constant  :=  0.22275~7911; 

Sin_S_C3  :  constant  :=  -0.01419_31743; 

Sin_S_C4  :  constant  :*  0.00051_19072_74; 

Sin_S_B5  :  constant  :=  -0.00001~18935_046; 

function  Sin_S_5term( Input  :  Semicircles)  return  Sin_Cos_Ratio  is 

Inter_Result_4  :  Real; 

Inter_Result_3  :  Real; 

Inter_Result_2  :  Real; 

Inter_Result_l  :  Real; 

Inter_Result_0  :  Real; 

Result  :  Sin  Cos_Ratio; 

Y_Squared  :  Real; 

begin 

Y_Squared  s=  Input  *  Input; 

Inter_Result_0  :=«  4.0  *  Y_Squared  -  2.0; 

Inter_Result_4  :=  Inter_Result_0  *  Sin_S_B5  +  Sin_S_C4; 
Inter_Result_3  :»  Inter_Result_0  *  Inter_Result_4  -~Sin_S_B5  + 
Sin_S_C3; 

Inter_Result_2  :»  Inter_Result_0  *  Inter_Result_3  -  Inter_Result_4  + 
Sin_S“C2; 

InterResultl  s»  Inter  Result_0  *  Inter_Result_2  -  Inter_Result_3  + 
Sin_S~Cl; 

InterResultO  :*  Inter  Result  0  *  Inter  Result  1  -  Inter_Result_2  + 
Sin_S_CQ; 

Inter_Result_0  :=  (Inter_Result  0  -  (2.0  *  Y_Squared  -  1.0)  * 
Inter_Result_I)  *  Real(Input); 
if  Inter_Result_0  >  1.0~then 
Inter_Result_0  :=  1.0; 
elsif  Inter_Result_0  <  -1.0  then 
Inter_Result_0  T*  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio<Inter_Result_0); 
return  Result; 
end  Sin_S_5term; 

end  Chebyshev_Semicircle_Operations; 
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separate  (Polynomials) 
package  body  Fike  is 

package  body  Fike_Semicircle_Operations  is  separate; 


end  Fike; 
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separate  (Polynomials. Fike) 

package  body  Fike_Semicircle_Operations  is 


Arcsin_Cl  :  constant  :=  0.31830_9886; 

Arcsin_C3  :  constant  :=  0.05305_20148; 

Arcsin~C5  :  constant  0.02385_63606; 

Arcsin_C7  s  constant  :=  0.01448_96675; 

Arcsin_C9  :  constant  :=  0.00763_75322_8; 

Arcsin  Cll  :  constant  :=  0.01350  18593; 


function  Arcsin_S_6term  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

Left_Quadrant  :  BOOLEAN; 

Mod_Input  :  Real; 

Result  :  Semicircles; 


begin 

if  abs(  Input  )  >  0.5  then 

Mod_Input  i —  Sqrt(  Real((1.0  -  ab3(Input))  *  0.5)  ); 
Left_Quadrant  :»  TRUE; 
else 

Mod_Input-  s*.  Real(Input); 

Left  Quadrant  :«  FALSE; 
end  if ;~ 

InputSquared  :*  Hod  Input  *  Modlnput; 

InterResult  J*  ( ( ( (^ArcsinCll  *  Input_Squared  + 

Arcsin_C9)  *_Input_Squared  + 

Arcsin_C7)  *  Input_Squared  + 

Arcsin_C5)  *  Input_Squared  + 

Arcsin_C3)  *  Input_Squared  + 

Arcsin_Cl)  *  Mod_Input; 
if  Left_Quadrant  then 
if  Input  >  0.0  then 

Inter_Result  :=  0.5  -  (2.0  *  Inter_Result); 
else 

Inter_Result  :=  -  (0.5  -  (2.0  *  InterResult)); 
end  if; 
end  if; 

Result  :*  Semicircles(Inter_Result); 
return  Result; 
end  Arcsin_S_6term; 

function  Arccos_S_6term  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 


Input_Squared  :  Real; 
Inter_Result  s  Real; 
Left_Quadrant  :  BOOLEAN; 
Mod_Input  :  Real; 

Result  :  Semicircles; 


begin 

if  abs(  Input  )  >  0.5  then 
Mod_Input  :*  Sqrt(  Real((1.0 
Left_Quadrant  :  =  TRUE; 
else 


-  abs(Input))  *  0.5)  ); 
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Mod_Input  :=  Real(Input); 

Lef t_Quadrant  :=  FALSE; 
end  if; 

Input  Squared  :=  Mod_Input  *  Mod_Input; 

Interjtesult  :=  (((((Arcsin_Cll  *  Input_Squared  + 
Arcsin_C9)  *  Input_Squared  + 
Arcsin_C7)  *  Input_Squared  + 

Arcsin_C5)  *  Input_Squared  + 
Arcsin_C3)  *  Input_Squared  + 
Arcsin_Cl)  *  Mod_Input; 
if  Left_Quadrant  then 
if  Input  >  0.0  then 

Inter_Result  :  =  0.5  -  (2.0  *  Inter_Result) ; 
else 

Inter_Result  :=  -  (0.5  -  (2.0  *  Inter_Result)); 
end  if; 
end  if; 

Result  :=  Semicircles(Inter_Result); 

—  convert  to  Arccos  by  applying  formula 
—  Arccosine  =  Pi/2  -  Arcsine 
Result  :=  0.5  -  Result; 
return  Result; 
end  Arccos_S_6term; 

end  Fike_Semicircle_Operations; 
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separate  (Polynomials) 
package  body  Hart  is 

package  body  Hart_Radian_Operations  is  separate; 
package  body  Hart_Degree_Operations  is  separate; 
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separate  (Polynomials. Hart) 

package  body  Hart_Radian_Operations  is 


Cos_R_C0 
Cos_R_C2 
Cos_R_C4 
Cos_R_C6 
Cos  R  C8 


constant 

constant 

constant 

constant 

constant 


0.99999_9953; 
-0.49999_9053; 
0.04166_35847 ; 

-0 . 00138_53704_3 ; 
0.00002  31539  317; 


function  Cos  R_5term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 


Inter_Result  :  Real; 

Hod_Input  :  Radians ; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  RadlansJ 

begin 

if  Input  >=  Pi_0ver_2  then 
Mod_Input  :=  Pi  -  Input; 
else 

Hod_Input  :=  Input; 
end  .if; 

X_Squared  :*  Hod  Input  *  Hod_Input; 
Inter_Result  !=»  T((Cos_R_C8  *  X_Squared  + 

Cos_R_C6)  *  X_Squared  + 
.  Cos_R~C4)  *  X_Squared  + 
Cos_R~C2)  *  XSquared; 
Inter_Result  :=■  Inter_Result  +  Cos_R_C0; 
if  Input  >=  Pi_0ver_2  then 

Inter_Result  :=  -  InterResult; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  ResultJ 


end  Cos_R_5term; 
end  Hart_Radian_0perations; 
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separate  (Polynomials. Hart) 

package  body  Hart_Degree_Operations  is 


Cos_D_C0  :  constant 
Cos_D_C2  :  constant 
Cos_D_C4  :  constant 
Cos_D_C6  :  constant 
Cos  D  C8  :  constant 


=  0.99999_9953; 

=  -  1.52308_42e-04 
=  3.86603_7Se-09 
=  -  3.91588_67e-14 
=  1.99362  60e-19 


function  Cos_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 


Inter_Result 
Mod_Input 
Result 
X  Squared 


Real; 

Degrees ; 

Sin  Cos_Ratio 
Real: 


begin 


if  Input  >=  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :*  Mod  Input  *  Mod_Input; 
Inter_Result  :»  X((Cos_D_C8  X_Squared  + 

Cos_D_C6)  *  XSquared  + 
Cos_D_C4)  *  X_Squared  + 
Cos_D_C2)  *  XSquared; 
InterResult  :*  Inter_Result  +  Cos_D_C0; 
if  Input  >=«  90.0  then 

Inter  Result  :=»  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=*  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 


end  Cos  D  5 term; 


end  Hart_Degree_0perations; 
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separate  (Polynomials) 
package  body  Hastings  is 

package  body  Hastings_Radian_Operations  is  separate; 
package  body  Hastings_Degree_Operations  is  separate; 
end  Hastings; 
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separate  (Polynomials. Hastings) 

package  body  Hastings_Radian_Qperations  is 

Sin_R_Cl_5term  :  constant  :=  0.99999_9995; 

Sin_R_C3_5term  :  constant  :=  -0.16666_6567; 

Sin~R_C5_5term  :  constant  :=  0.00833_30251_7; 

Sin_R_C7_5term  :  constant  :=  -0.00019_80741_43; 

Sin_R~C9_5term  :  constant  :=  0.00000_26018_8690; 

Sin_R_Cl_4term  :  constant  :=  0.99999_9; 

Sin_R_C3_4term  :  constant  :=  -0.16665_5; 

Sin_R_C5_4term  :  constant  :=*  0.00831_190; 

Sin~R_C7_4term  :  constant  :=  -0.00018_4882; 

Arc tan_R_Cl_8 term  :  constant  :=  0.99999_9333; 

Arc tan_R_C3_8 term  :  constant  :»  -0.33329_8560; 

Arc tan_R_C5_8 term  :  constant  :*  0.19946_5360; 

Arc tan~R~C7~8 term  :  constant  :=  -0.13908~5335; 

Arctan_R_C9  8term  s  constant  :=*  0.09642~00441; 

Arctan_R_ClT_8term  :  constant  :«  -0.05590~98861; 

Arctan_R_Cl3_8term  :  constant  :=*  0.02186_12288; 

Arctan_R_C15_8term  :  constant  :»  -0.00405_40580; 

Arctan_R_Cl_7 terra  :  constant  :*  0.99999_6115; 

Arctan_R~C3~7 term  s  constant  -0.33317~3758; 

Arc tan_R_C5_7 term  :  constant  :»  0.198Q7~8690; 

Arc tan_R_C7_7 term  :  constant  :«  -0.13233~5096; 

Arctan_R~C9  7 term  :  constant  :»  0.07962~6318; 

Arctan~R~ClI_7 term  :  constant  :»  -0.03360_6269; 

Arctan~R~C13_7term  :  constant  :»  0.00681_2411; 

Arctan_R_Cl_6term  :  constant  :*  0.99997_726; 

Ar c t an~R~C3~6 term  :  constant  :*  -0.33262~347; 

Arc tan_R_C5_6 term  ;  constant  :*  0.19354J346; 

Arc tan_R_C7_6 term  :  constant  :»  -0.11643~287; 

Arctan_R  C9~"6term  :  constant  :=  0.05265_332; 

Arc tan_R_ClT_6 term  i  constant  :=  -0.01172_120; 

pragma  PAGE; 

—  — sine  functions 

function  Sin_R_5term( Input  :  Radians)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

Result  s  Sin_Cos_Ratio; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((Sin_R_C9_5term  * 

InputJSquared  +  Sin_R_C7_5 terra)  * 
Input_Squared  +  Sin~R~C5~5term)  * 
Input_Squared  +  Sin_R_C3~5term)  * 

Input_ Squared  +  Sin_R_Cl~5term) ; 
InterJResult  :=  Inter_Risult  *  Real(Input)J 
if  Infer  Result  >  1.0~then 
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Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Sin_R_5term; 

pragaa  PAGE; 

function  Sin_R_4term( Input  :  Radians)  return  Sin_Cos  Ratio  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

Result  :  Sin_Cos_Ratio; 

begin 

Input_Squared  :=  Input  *  Input; 

InterJResult  :=  (((Sin_R_C7_4term  * 

Input_Squared  +  Sin_R_C5~4term)  * 
Input_Squared  +  Sin_R_C3_4term)  * 
Input_Squared  +  Sin~R  Cl_4term); 
Inter_Result  :■  Inter_Result  *  Real(Input); 
if  InterJResult  >  1.0  then 
Inter~Result  :»  1.0; 
elsif  InterJResult  <  -1.0  then 
Inter  Result  :»  -1.0; 
end  if; 

Result  :»  Sin_CosJRatio(  InterJResult  ); 
return  Result; 

end  Sin_R_4term; 

—  — cosine  functions 

pragaa  PAGE; 

function  Cos_R_5term(Input  :  Radians)  return  Sin  Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

ModJEnput  :  Radians; 

Result  :  Sin_Cos_Ratio; 

begin 

Mod_Input  :=  Pi_0ver_2  -  Input; 

Input_Squared  :=  Modjlnput  *  Hod  Input; 

InterJResult  :=  ((?(Sin_R_C9_5term  * 

Input_Squared  +  SinjR_C7j5term)  * 
Input_Squared  +  Sin_R_C5_5term)  * 
Input_Squared  +  Sin_R_C3_5term)  * 
Input_Squared  +  Sin~R  Cl J5 term) ; 
Inter_Result  :=  Inter_Rlsult  *  Real(Mod~Input); 
if  Inter_Result  >1.0  then 
InterJResult  :=  1.0; 
elsif  Inter  Result  <  -1.0  then 
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Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Cos_R_5term; 

pragma  PAGE; 

function  Cos_R_4term(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  :  Real; 

Mod_Input  :  Radians; 

Result  :  Sin_Cos_Ratio; 

begin 

Mod_Input  :=  Pi_0ver_2  -  Input; 

Input_Squared  :=*  Mod_Input  *  Hod_Input; 

Interjtesult  :  =  (((Sin_R_C7_4term  * 

Input_Squared  +  Sin_R_C5_4term)  * 
Input_Squared  +  Sin_R_C3_4term)  * 
Input_Squared  +  Sin_R  Cl  4 term); 
Inter_Result  :*  Interjtesult  *  Real(Mod~Input); 
if  Inter_Result  >  1.0~then 
Inter_Result  1.0; 
elsif  Interjtesult  <  -1.0  then 
Interjtesult  :=  -1.0; 
end  if; 

Result  :*  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Cc3_R_4term; 

pragma  PAGE; 

—  —  Tangent  functions 

function  Tan_R_5term  (Input  :  Radians)  return  Tan_Ratio  is 
Sin  :  Sin_Cos_Ratio; 

Cos  :  Sin_Cos_Ratio; 
begin 

Sin  :=  Sin_R_5term(Input); 
if  Input  <  070  then 

Cos  :=  -  Cos_R_5term(  Pi  +  Input  ); 
else 

Cos  :=  Cos_R_5term(Input); 
end  if; 

return  Tan_Ratio(Sin  /  Cos); 
end  Tan JtJ>  term; 

pragma  PAGE; 

function  Tan_R_4term  (Input  :  Radians)  return  Tan_Ratio  is 
Sin  :  Sin_Cos_Ratio; 

Cos  :  Sin~Cos_Ratio; 
begin 

Sin  :=  Sin_R_4term(Input); 
if  Input  <0.0  then 
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Cos  :=  -  Cos_R_4term(  Pi  +  Input  ); 

else 

Cos  :=  Cos_R_4term(Input); 

end  if; 

return  Tan_Ratio(Sin  /  Cos); 

end  Tan_R_4term; 

pragma  PAGE; 

—  —  Arctangent  functions 

function  Arc tan_R_8 term  (Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  s  Tan~Ratio; 

Result  :  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((((((Arctan_R_C15_8term  * 

Input_Squared  +  Arctan_R_Cl3_8term)  * 
Input_Squared  +  Arctan_R_Cll  8term)  * 
Input~Squared  +  Ar  c  t  an  ~R~C9_§  term)  * 
Input_Squared  +  Arc tan_R_C7_8 term)  * 
Input_Squared  +  Ar c  t  an~R~C5~8  term)  * 
InputSquared  +  Arc tan_R~C3_8 term)  * 
InputSquared  +  Arctan_R_Cl_8term)  * 
Input! 

Result  :«  Radians (Inter  Result); 

return  Result; 

end  Arc tan_R_8 term; 

pragma  PAGE; 

function  Arctan_R_?term  (Input  s  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  s  Tan  Ratio; 

Result  :  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((( (Arc tan_R_C13_7 term  * 

Input_Squared  +  Arctan_R_Cll  7 term)  * 
Input_Squared  +  Arctan_R~C9_7term)  * 
Input_Squered  +  Arctan_R_C7_7term)  * 
Input_Squared  +  Arctan~R~C5~7  term)  * 
Input_Squared  +  Arctan_R_C3_7term)  * 
Input_Squared  +  Arctan_R~Cl~7  term)  * 
Input; 

Result  :=  Radians(Inter_Result) ; 

return  Result; 

end  Arc tan_R_7 term; 

pragma  PAGE; 

function  Arctan_R_6term  (Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter  Result  :  Tan-Ratio; 
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Result  :  Radians; 


begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :  =  (((((Arctan_R_Cll_6term  * 

Input_Squared  +  Arc tan_R_C9_6 term)  * 
Input_Squared  +  Arctan_R_C7_6term)  * 
Input_Squared  +  Arctan_R_C5_6term)  * 
Input~Squared  +  Arctan_R_C3_6terra)  * 
Input_Squared  +  Arctan_R_Cl_6term)  * 
Input; 

Result  :=  Radians(Inter_Result) ; 

return  Result; 
end  Arctan  R  6 term; 


pragma  PAGE; 

—  —  Modified  Hastings  Arctangent  Junctions 

function  Mod_Arctan_R_8term  (Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan_Ratio; 

Mod_Input  :  Tan  Ratio; 

Result  :  Radians; 


begin 

if  Input  >=  0.0  then 
Mod_Input  :»  Input; 

.  else 

Hodlnput  :■  -  Input; 
end  if; 

Mod_Input  :*  (Modlnput  -  1.0)  /  (Mod_Input  +  1.0); 
Input_Squared  ;  =  Mod_Input  *  Mod_InpuI; 

Inter_Result  (((((T(Arctan  R  C15  8term  * 


Input_Squared 

Input_Squared 

Input_Squared 

Input_Squared 

Input_Squared 

Input_Squared 

Input_Squared 

Mod_Input; 

Result  :=  Radians(Inter_Result) 

if  Input  <0.0  then 
Result  i=  -  Result; 

end  if; 

return  Result; 

end  Mod_Arctan_R_8term; 

pragma  PAGE; 

function  Mod_Arctan_R_7term  (Input 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan_Ratio; 

Hod_Input  :  Tan~Ratio; 

Result  :  Radians; 


+  Arc tan_R_C13_8 term)  * 
+  Arctan_R_Cll  8term)  * 
+  Arctan_R_C9_8term)  * 
+  Arc tan_R~C7~8 term)  * 
+  Arc tan_R_C5_8 term)  * 
+  A  r  c  t  an_R~C3_8  term)  * 
+  Arctan_R_Cl_8term)  * 

+  Pi  Over  4; 


:  Tan  Ratio)  return  Radians  is 
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begin 

if  Input  >=  0.0  then 
Mod_Input  :=  Input; 
else 

Mod_Input  :=  -  Input; 
end  if; 

Mod_Input  :=  (Mod_Input  -  1.0)  /  (Mod_Input  +  1.0); 
Input_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  ((((((Arctan_R_C13_7term  * 

Input_Squared  +  Arctan_R_Cll  7term)  * 
Input_Squared  +  Arctan_R_C9_7term)  * 
Input_Squared  +  Arctan_R_C7_7term)  * 
Input_Squared  +  Arctan_R_C5_7term)  * 
Input~Squared  +  Arctan_R_C3_7term)  * 
Input_Squared  +  Arctan_R_Cl_7term)  * 
Mod_Input; 

Result  :=  Radians ( In ter_Result)  +  Pi_0ver_4; 
if  Input  <0.0  then 
Result  :=  -  Result; 
end  if; 

return  Result; 
end  Mod_Arc tan_R_7  term ; 

pragma  PAGE; 

function  Mod_Arctan_R_6term  (Input  :  TanRatio)  return  Radians  is 

InputSquared  s  Tan_Ratio; 

InterResult  j  Tan_Ratio; 

Mod_Input  :  Tan  Ratio; 

Result  :  Radians; 

begin 

if  Input  >=0.0  then 
Mod_Input  :=  Input; 
else 

Mod_Input  :=  -  Input; 
end  if; 

Mod_Input  :=  (Mod_Input  -  1.0)  /  (Mod_Input  +  1.0); 
Input_Squared  :=  Mod_Input  *  Mod  Input; 

Inter_Result  :=  (((T(Arctan_R_Cll  6term  * 

InputSquared  +  Arctan_R_C9_?term)  * 
Input~Squared  +  Arctan_R~C7_6terra)  * 
Input_Squared  +  Arctan_R_C5_6term)  * 
Input_Squared  +  Arctan_R_C3_6term)  * 
Input_Squared  +  Arc tan_R~Cl~6 term)  * 
Mod_Input; 

Result  :=  Radians(Inter_Result)  +  Pi_0ver_4; 
if  Input  <  0.0  then 
Result  :=  -  Result; 
end  if; 

return  Result; 
end  Mod  Arctan  R  6 term; 


end  Hastings_Radian_0perations; 


CAMP  Software  Detailed  Design  Document 


separate  (Polynomials. Hastings) 

package  body  Hastings_Degree_Operations  is 


Sin_D_Cl_5term 
Sin_D_C3_5term 
Sin_D_C5_5term 
Sin_D_C7_5term 
Sin  D  C9  5 term 


constant  := 
constant  :  = 
constant  := 
constant  := 
constant  := 


1.74532_92e-02; 
8.86095_625e-07 
1.34955_172e-ll 
9.77168_260e-17 
3.91006  135e-22 


Sin_D_Cl_4term 
Sin_D_C3_4term 
Sin_D_C5_4term 
Sin  D  C7  4 term 


constant 

constant 

constant 

constant 


1.74533e-02; 

8.86037e-07; 

1.34613e-ll; 

9.12087e-17; 


—  — sine  functions 


pragma  PAGE; 

function  Sin_D_5term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Input_Squared  ;  Real; 

Inter_Result  :  Real; 

Result  s  Sin_Cos_Ratio; 

begin 

InputSquared  Input  *  Input; 

InterResult  :=«  ((((Sin_D_C9_5 terra  * 

Input_Squared  +  Sin_D~C7_5term)  * 
Input_Squared  +  Sin_D~C5_5term)  * 
Input_Squared  +  Sin_D_C3~5term)  * 

Input  JSquared  +  Sin_D_Cl_5term); 
Inter_Result  ;*  Inter_Result  *  Real(Input)7 
if  Inter_Result  >  1.0  then 
InterJResult  J=»  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 


end  Sin_D_5term; 
pragma  PAGE; 

function  Sin_D_4term( Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Input_Squared  s  Real; 

Inter_Result  s  Real; 

Result  :  Sin_Cos_Ratio; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((Sin_D_C7_4term  * 

Input_Squared  +  Sin_D_C5_4term)  * 
Input~Squared  +  Sin^D^S^Aterm)  * 
Input_Squared  +  Sin~D~Cl~4term) ; 
Inter_Result  :=  Inter  Result  *  Real(Input); 
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if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
InterJResult  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Sin_D_4term; 

pragaa  PAGE; 

—  — cosine  functions 

function  Cos_D_5tarm(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

InputSquared  :  Real; 

Inter_Result  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin_Cos_Ratio; 

begin 

Mod_Input  :=  90.0  -  Input; 

Input_Squared  :*  Mod_Input  *  Mod  Input; 

Inter_Result  i=  ((f(Sin_D_C9_5term  * 

Input_Squared  +  Sin_D_C7_5te.rm)  * 
Input_Squared  +  Sin_D~C5_5term)  * 
Input_Squared  +  Sin_D_C3~5term)  * 
Input~Squared  +  Sin_D_Cl”5term); 
Inter_Result  :*  InterResult  *  Real(Modlnput); 
if  InterResult  >  1.0  then 
Inter_Result  :*  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=■  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ): 
return  Result; 

end  Cos_D_5term; 

pragaa  PAGE; 

function  Cos_D_4terra(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Input_Squared  :  Real; 

Inter_Result  j  Real; 

Mod_Input  :  Degrees; 

Result  s  Sin_Cos_Ratio; 

begin 

•  Mod_Input  :=  90.0  -  Input; 

Input_Squared  :=>  Mod_Input  *  Mod  Input; 

Inter_Result  :=  (^(Sin_ D_C7_4term  * 

Input_Squared  +  SinJ3_C5~4term)  * 
Input~Squared  +  Sin~D_C3~4term)  * 
Input_Squared  +  Sin_D_Cl~4t(;rra)> 
Inier_Result  :=  Inter_Result  *  Real(Mod_Input); 
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if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 

end  Cos  D  4 term; 


pragaa  PAGE; 

—  —  Tangent  function 

function  Tan_D_5term  (Input  :  Degrees)  return  Tan_Ratio  is 

Sin  :  Sin_Cos_Ratio; 

Cos  ;  Sin_Cos_Ratio; 

begin 

Sin  ;=  Sin_D_5term(Input); 
if  Input  <0.0  then 

Cos  :=  -  Cos_D_5term(  180.0  +  Input  ); 
else 

Cos  :=  Cos_D_5term(Input); 
end  if; 

return  Tan_Ratio(Sin  /  Cos); 
end  Tan_D_5term; 

function  Tan_D_4term  (Input  s  Degrees)  return  TanRatio  is 
Sin  s  Sin_Cos_Ratio; 

Cos  i  SinCosRatio; 
begin 

Sin  :*  Sin_D_4term( Input); 
if  Input  <0.0  then 

Cos  :=  -  Cos_D_4term(  180.0  +  Input  ); 
else 

Cos  ;=  Cos_D_4term(Input); 
end  if; 

return  Tan_Ratio(Sin  /  Cos); 
end  Tan  D  4 term; 


end  Hastings_Degree_0perations; 
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separate  (Polynomials) 

package  body  Modified_Nevton_Raphson  is 

Cl  :  constant  :=  2.18518_306; 

C2  :  constant  :=  3.02289_917; 

C3  :  constant  :=  1.54515_776; 

pragma  PAGE; 

function  Sqrt(Input  :  Inputs)  return  Outputs  is 

Inter_Result  :  Reals; 

Result  :  Outputs; 

Root_Pwr  :  Reals; 

X_Norm  :  Reals ; 

begin 

if  Input  =  0.0  then 
Result  :=  0.0; 
else 

X_Norm  s=  Reals(  Input  ); 


-  Reduce  input  to  between  0.25  and  1.0 

-  in  order  to  achieve  better  initial  - 

-  approximation 


Root_Pvr  :*  1.0; 
if  Input  >  1.0  then 
Reduce: 

while  X_Norm  >  1.0  loop 

Root_Pvr  :=•  Root_Pvr  *  2c0; 

X  Norm  :«  X_Norm  *  0.25; 
end  loop  Reduce; 

else 

Increase: 

while  X_Norm  <0.25  loop 

Root_Pwr  :=  Root_Pwr  *  0.5; 

X  Norm  :=  X_Norm  *  4.0; 
end  loop  Increase; 
end  if; 

Inter_Result  :=  Cl  -  C2  /  (X_Norm  +  C3); 

Inter_Result  :*  (X_Norm/Inter_Result  +  Inter_Result)  *  0.5 
InterJResult  :»  (X~Norm/Inter_Result  +  Inter_Result)  *  0.5 
Inter_Result  :=  (X~Norra/Inter~Result  +  Inter_Result)  *  0.5 
Inter~Result  :=■  InTer_Result  *  Root_Pwr; 

Result  :=  Outputs(Inter_Result); 
end  if;  —  Input  not  0.0 

return  Result; 
end  Sqrt; 

end  Modified_Newton_Raphson; 
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separate  (Polynomials) 
package  body  Nevton_Raphson  is 

Cl  :  constant  :  =  3.57142_857; 

C2  :  constant  :  =  14.57725_95; 

C3  :  constant  :  =  0.30612_2449; 

C4  :  constant  :  =  4.79591_837; 

C5  :  constant  :=  0.16659_7251; 

function  Sqrt(Input  :  Inputs)  return  Outputs  is 

Inter_Result  :  Reals; 

Result  s  Outputs; 

Root_Pvr  :  Reals; 

X_Norm  :  Reals ; 

begin 

if  Input  =0.0  then 
Result  :=  0.0; 
else 

X_Norm  :=  Reals(  Input  ); 


-  Reduce  input  to  between  0.25  and  1.0  - 

-  in  order  to  achieve  better  initial  - 

-  approximation 


RootPwr  :■  1.0; 
if  Input  >  1.0  then 
Reduces 

while  X  Norm  >  1.0  loop 

Root_Pvr  :■  RootJFvr  *  2.0; 

X  Norm  :=  X_Norm  *  0.25; ‘ 
end  loop  Reduce; 

else 

Increase; 

while  X_Norm  <0.25  loop 

Root_Pvr  :=  Root_Pvr  *  0.5; 

X  Norm  ;=  X_Norm  *  4.0; 
end  loop  Increase; 
end  if; 

Inter_Result  s=  Cl  -  (C2  *  (X  Norm  +  C3))  /  ((X_Norm  +  C4)  *  (X_Norm  +  C5)  +  C5) 
Inter_Result  :=  (X_Norm/Inter_Result  +  Inter_Result)  *  0.5; 

Inter_Result  ;=  (X_Norm/Inter_Result  +  Inter_Result)  *  0.5; 

Inter_Result  ;=  (X_Norm/Inter_Result  +  Inter~Result)  *  0.5; 

Inter_Result  :=  Inter_Result  *  Root_Pwr; 

Result  :=  Outputs(Inter_Result) ; 

end  if; 

return  Result; 
end  Sqrt; 


end  Newton_Raphson; 
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separate  (Polynomials) 
package  body  Taylor_Series  is 

package  body  Taylor_Radian_Operations  is  separate; 

package  body  Taylor_Degree_Operations  is  separate; 

package  body  Taylor_Natural_Log  is  separate; 

package  body  Taylor_Log_Base_N  is  separate; 

end  Taylor  Series; 


9 


: 

i 


i 
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separate  (Polynomials.Taylor_Series) 
package  body  Taylor_Radian_Operations  is 


—  —  The  Sine  constants  are  used  in  the  Taylor  operations  for  computing 

—  the  sine.  The  Cosine  constants  are  used  in  computing  cosines.  In 

—  the  Modified  Taylor  operations,  however,  both  sets  of  constants  are 

—  used.  Constants  are  given  for  9  digits  of  precision  for  both  extended 

—  and  single  precision.  They  are  named  to  correspond  to  the  power 

—  of  X  (Input)  with  which  they  are  termed. 


Sin_R_C3 

Sin~R_C5 

Sin_R~C7 

Sin_R_C9 

SinRCll 

Sin_R_C13 

Sin  R  C15 


constant 

constant 

constant 

constant 

constant 

constant 

constant 


-0.16666_6667; 

0.00833_33333  3} 
-0.00019_84126  98; 

0.00000  27557~3164; 

-0.00000  00250  51870  9; 
0.00000“00001  60478“446; 
-0.00000"00000  00737“06627  8; 


\ 


1 


J 

71 

\ 


1 


J 


] 


1 


Cos  R  C3 

Cos_R_C5 

Cos_R_C7 

Cos_R_C9 

Cos jf  Cl  1 

Cos_R_C13 

Cos_R  C15 


constant  := 
constant  := 
constant  := 
constant  := 
constant  :» 
constant  :« 
constant 


-0.50000_0000;  \ 
0.04166_66667;  ] 
-0.00138_88888  9; 

0.00002  48015  873;  j 
-0.00000  02755"73192;  ] 
0 . 00000~00020~87 675  70;  j 
-0 . 00000**00000~11470  7456;  j 


Tan_R_C3 

Tan  R_C5 

Tan_R_C7 

Tan_R_C9 

Tan_R_Cll 

Tan_R_Cl3 

Tan  R~C15 


constant 
constant  :* 
constant  :» 
constant  :» 
constant  :» 
constant  :» 
constant  :» 


Arcsin_R_C3  j 
Arcsin_R_C5  ; 
Arcsin~R_C7  : 
Arcsin_R_C9  : 
Arcsin_R_Cll  : 
Arcsin_R_C13  : 
Arcsin_R_Cl5  : 


constant 

constant 

constant 

constant 

constant 

constant 

constant 


0.33333  3333; 
0.13333“3333; 
0.05396~82540; 
0.02186  9488; 
0.00886~32355  3; 

0 . 00359~21280~ 4 ; 
0. 00145”58343~9 ; 

:=  C.16666_6666; 
j-  0.075; 

;=  0.04464_28571; 
s=»  0.03038_19444; 
:=  0.02237  21591; 

0.01735  27644; 
j-  0.01396“48438; 


Arctan_R_C3 

Arctan_R_C5 

Arctan_R_C7 

Arctan_R_C9 

Arctan_R_Cll 

Arctan_R_C13 

Arctan**R  C15 


constant  := 
constant  := 
constant  := 
constant  :* 
constant  := 
constant  := 
constant  :=■ 


0.33333  3333; 
-0.2*  ~ 
o'.  14285  7142; 
-0.11111  1111; 
0.09090“90909; 
-0.07692  30769; 
0 . 06666- 66667 ; 


Alt_Arctan_R_C3  :  constant 
Alt_Arctan_R_C5  :  constant 
Alt_Arctan_R_C7  :  constant 
Alt_Arctan_R~C9  :  constant 
Alt_Arctan_R_Cll  :  constant 
Alt~Arctan_R_C13  :  constant 
Alt  Arctan~R  C15  :  constant 


:=  -0.33333  3333; 

o.2* 

:«  -o! 14285  7142; 
:=  O.lllirilll; 
:«  -0.09090“90909; 
0.07692"30769; 
— 0 . 06666” 66667 ; 


! 

| 

wv  uv  wvkwwuvuvuv  jvvkw 
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pragma  PAGE; 

—  —  Taylor  Sine  functions 

function  Sin_R_8term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Radians; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((((Sin_R  C15  *  X_Squared  + 

Sin_R~C13)  *  X  Squared  + 

Sin_R_Cll)  *  X~Squared  + 

Sin~R~C9)  *  X_Squareu  + 

Sin_R~C7)  *  X_Squared  + 

Sin~R~C5)  *  X_Squared  + 

Sin~R_C3)  *  X_Squared; 

Inter_Result  :=  Inter_ResuIt  *  Real(Input)  +  Real(Input); 
if  Inter_Result  >  1.0  than 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :«  -1.0; 
end  if; 

Result  ;»  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_R_8term; 

•> 

pragma  PAGE; 

function  Sin_R_7term  (Input  :  Radians)  return  SinCosJRatio  is 

Inter_Result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Radians ; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((((Sin_R_C13  *  X_Squared  + 

Sin_R~Cll)  *  X  Squared  + 

Sin_R_C9)  *  X~Squared  + 

Sin~R~C7)  *  X_Squared  + 

Sin~R~C5)  *  X~Squared  + 

Sin_R_C3)  *  XJSquared; 

Inter_Result  :=  Inter_Result  *  Real(Input)  +  Real(Input); 
if  Inter_Result  >  1.0  then 
InterJResult  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_R_7term; 

pragma  PAGE; 

function  Sin_R_6term  (Input  :  Radians)  return  Sin  Cos  Ratio  is 


*J 


1 


3 

i 


! 


i 


i 

I 
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Inter_Result  :  Real; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Radians; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :  =  <(((Sin_R_Cll  *  X_Squared  + 

Sin_R_C9)  *  X_Squared  + 

Sin_R~C7)  *  X~Squared  + 

Sin~R~C5)  *  X_3qu3red  + 

Sin~R  C3)  *  X" Squared; 

Inter_Result  :=  InterJtesuXt  *  Real(Input)  Heal(Input); 
if  Inter_Result  >  1.0~thea 
Inter~ResuIt  :=  1,0; 
elsif  Inter_Result  <  -1,0  then 
Inter_Result  -1.0; 
end  if; 

Result  :*  Sin_Cos_Ratio{  Inter_Result  ); 
return  Result! 
end  Sin_R_6term; 

pragma  PAGE; 

function  Sin_R__5terc  (Input  t  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Result  :  Sin  Cos_Ratio; 

XSquarea  j  Radians! 

begin 

X_Squared  ;=■  Input  *  Input; 

Inter_Result  :»  (((Sin__R_C9  *  X_Squared  + 

Sin  R  C7)  *  X  Squared  + 

Sin“R“C5)  *  X^Squared  + 

Sin~R~C3)  *  X^Squared; 

Inter_Result  :=  InterJResult  *  Real(Input)  +  Real(Input); 
if  Inter_Result  >  1.0  then 
Inter~R®sult  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  s*  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_R_5term; 

pragma  PAGE; 

function  Sin_R_4term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  s  Radians ; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((Sin_R_C7  *  X_Squared  + 

Sin~R~C5)  *  X_Squared  + 

Sin~R_C3)  *  X_Squared; 

Inter_Result  :=  Inter_Result  *  Real(Input)  +  Real(Input); 
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if  Inter_Result  >  1.0  then 
Inter~Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_R_4term; 

pragma  PAGE; 

—  —  Taylor  Cosine  functions 


function  Cos  R  8term  (Input  :  Radians)  return  Sin  Cos  Ratio  is 


Inter_Result 

Mod_Input 

Result 

X_Squared 


Real; 

Radians; 
Sin_Cos_Ratio 
Radians ; 


begin 

if  Input  >  Pi_0ver_2  then 
Mod_Input  :=  Pi  -  Input; 
else 

Mod_Input  Input; 
end  if; 

XSquared  :*  Modlnput  *  Mod_Input; 

InterResult  :«  ((((((Cos_R_C15  *  X_Squared  + 

Cos_R~C13)  *  XSquared  + 
Cos_R_Cll)  *  XSquared  + 
Cos_R_C9)  *  X_Squared  + 
Cos_R_C7 )  *  X_Squared  + 
Cos_R~C5)  *  X~Squared  + 
Cos  R~C3)  *  X~Squared; 
Inter_Result  :=  Inter_ResuIt~+  1.0; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :=  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  ;=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :*  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  R  8 term; 


pragma  PAGE; 

function  Cos_R_7term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 


Inter_Result 

Mod_Input 

Result 

X_Squared 


:  Real; 

:  Radians; 

;  Sin  Cos_Ratio; 
:  Radians; 


begin 

if  Input  >  Pi_0ver_2  then 
Mod_Input  :=  Pi~-  Input; 


i 

] 
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else 

Hod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Hod_Input; 
Inter_Result  :=  (((((Cos_R_C13  *  X_Squared  + 

Cos_R_Cll)  *  X_Squared  + 
Cos_R_C9)  *  X__Squared  + 
Cos_R_C7)  *  XjSquared  + 
Cos_R_C5)  *  X_Squared  + 
Cos~R_C3)  *  X_Squarea; 
Inter_Result  :=  Inter_Result  +  1.0; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuXt  :*  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :  =  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  R  7 term; 


pragma  PAGE; 

function  Cos_R_6term  (Input  :  Radians)  return  Sin  Cos  Ratio  is 


Inter_Result 

Mod_Input 

Result 

XSquared 


:  Real; 

:  Radians; 
j  Sin  Cos_Ratio; 
;  Radians; 


begin 

if  Input  >  Pi_0ver_2  then 
Mod_Input  ;=»  Pi  -  Input; 
else 

Mod_Input  ;=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod  Input; 
Inter_Result  :=  ((((Cos_R  ,Tl  *  X_Squared  + 

Cos_R_C9)  *  X_Squared  + 
Cos_R~C7)  *  X_Squared  + 
Cos_R”C5)  *  X_Squared  + 
Cos_R  C3)  *  X_Squart 
Inter_Result  :=  Inter_ResuIt  +  l.Oj 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :=■  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos  R  6 term; 


pragaa  PAGE; 
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function  Cos  R  5term  (Input  :  Radians)  return  Sin  Cos  Ratio  is 


Inter_Result 
Mod_Input 
Result 
X  Squared 


:  Real; 

:  Radians; 

:  Sin_Cos_Ratio; 
:  Radians; 


begin 

if  Input  >  Pi_0ver_2  then 
Mod_Input  :=  Pi  -  Input; 
else 

Mod_Input  :=*  Input; 
end  ifj 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  (((Cos_R_C9  *  X_Squared  + 

Cos_R_C7)  *  X_Squared  + 

Cos_R~C5)  *  X_Squared  + 

CosjTC3)  *  X_Squared; 

Inter_Result  :=  Inter_Result  +  1.0; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :=  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  ;»  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :*  -1.0; 
end  if; 

Result  :»  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos_R_5term; 

pragaa  PAGE; 

function  Cos_R_4term  (Input  j  Radians)  return  Sin_Cos_Ratio  is 


Inter_Result 

Mod_Input 

Result 

X_Squared 


:  Real; 

:  Radians; 

:  Sia  Cos_Ratio; 
:  Radians ; 


begin 

if  Input  >  Pi_0ver_2  then 
Mod  lnput  :=*  Pi  -  Input; 
else 

Mod_Input  j  =  Input; 
end  ifj 

X_Squared  :=  ModJInput  *  Mod_Input; 
Inter_Result  :=  ((Cos_R_C7  *  X_Squared  + 

Cos_R~C5)  *  X_Squared  + 
Cos_R_C3)  *  X_Squared; 
InterResult  :=  Inter_Result  +  1.0; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt  :=  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter  Result  :=  -1.0; 
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end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 

return  Result; 

end  Cos_R_4term; 

pragaa  PAGE; 

—  —  Tayfcr  tangent  functions 

function  Tan_R_8term  (Input  :  Radians)  return  Tan_Ratio  is 

Inter_Result  :  Real; 

Result  :  Tan  Ratio; 

X__Squared  :  Radians ; 

begin 

X_Squared  :*  Input  *  Input; 

Inter_Result  :*  (<((((Tan_R__C15  *  X_Squared  + 

Tan_R_C13)  *  X_Squared  + 

Tan_R_Cll)  *  X_Squared  + 

Tan_R_C9)  *  X_Squared  + 

Tan_R_C7)  *  X_Squared  + 

Tan_R_C5)  *  XSquared  + 

Tan_R_C3)  *  X~Squared; 

Result  Tan_Ratio(Inter_Result  *  Real(Input)  +  Real(Input)); 

return  Result; 

end  Tan_R_8tern; 

pragaa  PAGE; 

- Taylor  arcsine  functions 


function  Arcsin_R_8term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 


Inter_Result 
Result 
X  Squared 


Real; 
Radians ; 
Real; 


begin 

X_Squared  :»  Real(Input  *  Input); 
Inter_Result  t=  ((((((Arcsin_R  C15 

Arcsin jCC13) 

Arcsin  R~C11) 
Arcsin"R_C9) 
Arcsin_R_C7) 
Arcsin_R_C5) 
Arcsin_R~C3) 

Result  :=  Radians(Inter_Result  *  Real(Input) 
return  Result; 
end  Arcsin  R  8term; 


X_Squared 
X_Squared 
X~Sqttared 
X~Squared 
X~Squared 
X~Squared 
XSquared ; 

+  Real(Input)); 


+ 

+ 

+ 

+ 

+ 

+ 


pragma  PAGE; 

function  Arcsin  R  7 term  (Input 


Sin  Cos  Ratio)  return  Radians  is 


Inter_Result 

Resull 

X_Squared 


Real; 

Radians; 

Real; 


begin 


Vvl 
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X_Squared  :=  Real (Input  *  Input); 

Inter_Result  :=  (((((Arcsin_R_Cl3 

Arcsin_R_Cll) 

Arcsin_R_C9) 

Arcsin_R_C7) 

Arcsin_R_C5) 

Arcsin_R_C3) 

Result  :=  Radians(Inter_Result  *  Real(Input)  +  Real(Input)) ; 
return  Result; 
end  Arcsin  R  7 term; 


X_Squared 
X_Squared 
X_Squared 
X_Squared 
X_Squared 
X_Squared ; 


pragma  PAGE; 

function  Arcsin  R  6 term  (Input 


Sin  Cos  Ratio)  return  Radians  is 


Inter_Result 
Result 
X  Squared 


Real; 

Radians; 

Real; 


begin 

X_Squared  :=  Real(Input  *  Input); 

Inter_Result  :=  ( ( ( (Arcsin_R_Cll 

Arcsin_R_C9) 

Arcsin_R_C7) 

Arcsin_R_C5) 

Arcsin_R~C3) 

Result  s*  Radians(Inter_ResulT  *  Real(Input)  +  Real(Input)); 
return  Result; 
end  Arcsin_R_6term; 


X_Squared 
X_Squared 
X_Squared 
X_Squared 
X  Squared; 


pragma  PAGE; 

function  Arcs in_R_5 term  (Input 


Sin  Cos  Ratio)  return  Radians  is 


Inter_Result 
Result 
X  Squared 


Real; 
Radians ; 
Real; 


begin 

X_Squared  :=  Real (Input  *  Input); 

Inter_Result  :=*  (((Arcsin_R_C9  *  X_Squared  + 

Arcsin_R~C7)  *  X_Squared  + 

Arcsin_R_C5)  *  X~Squared  + 

Arcsin_R-C3)  *  X  Squared; 

Result  :*  Radians ( In ter_ResuIt  *  Real(Input)  +  Real(Input)); 
return  Result; 
end  Arcsin_R_5term; 

pragma  PAGE; 

—  Taylor  arccosine  Junctions 

function  Arccos_R_8term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 

Inter_Result  :  Real; 

Result  :  Radians; 

X  Squared  :  Real; 


begin 

X  Squared  :=  Real(Input  *  Input); 
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Inter_Result  :=  ((((((Arcsin_R_C15  *  X_Squared  + 

Arcsin_R_C13)  *  X~Squared  + 

Arcsin_R_Cll)  *  X_Squared  + 

Arcsin_R_C9)  *  X_Squared  + 

Arcsin_R_C7)  *  X_Squared  + 

Arcsin_R_C5)  *  X_Squared  + 

Arcsin_R_C3)  *  X_Squared; 

Result  :=  Pi_0ver_2  -  (Radians(Iriter_Result  *  Rea.-(Input)  +  Real(Input))); 
return  Result; 
end  Arccos_R_8term; 

pragma  PAGE; 

function  Arccos_R_7 term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 

Inter_Result  :  Real; 

Result  :  Radians; 

X_3quared  :  Real; 

begin 

X_Squared  :=  Real(Input  *  Input); 

Inter_Result  :=  (((((Arcsin_R_C13  *  X_Squared  + 

Arcsin_R_Cll)  *  X_Squared  + 

Arcsin_R_C9)  *  X_Squared  + 

Arcsin_R_C7)  *  X_Squared  + 

Arcsin“R_C5)  *  X_Squared  + 

Arcsin_R  C3)  *  X~Squared; 

Result  Pi_0ver_2  -  (Radians^Inter  Result  *  Real(Input)  +  Real(Input))); 
return  Result; 
end  Arccos_R_7term; 

pragma  PAGE; 

function  Arccos_R_6term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 

Inter_Result  :  Real; 

Result  ;  Radians; 

X_Squared  :  Real; 

begin 

X_Squared  :=  Real(Input  *  Input); 

Inter_Result  :=  ((((Arcsin_R_Cll  *  X_Squared  + 

Arcsin_R_C9)  *  X~Squared  + 

Arcsin~R_C7)  *  X_Squared  + 

Arcsin_R_C5)  *  X_Squared  + 

Arcsin_R_C3)  *  X_Squared; 

Result  :=  Pi_0ver_2  -  (Radians(Inter_Result  *  Real(lnput)  +  Real(Input))) ; 
return  Result; 
end  Arccos_R_6term; 

pragma  PAGE; 

function  Arccos_R_5term  (Input  :  Sin_Cos_Ratio)  return  Radians  is 

Inter_Result  :  Real; 

Result  :  Radians; 

X_Squared  :  Real; 

begin 

X_Squared  :=  Real (Input  *  Input); 
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Inter_Result  :=  (((Arcsin_R_C9  *  X_Squared  + 

Arcsin_R_C7)  *  X~Squared  + 

Arcsin_R_C5)  *  X_Squared  + 

Arcsin_R_C3)  *  X_Squared; 

Result  :=  Pi_0ver_2  -  (Radians(Inter_Result  *  Real(Input)  +  Real(Input))) ; 
return  Result; 
end  Arccos_R_5term; 

pragma  PAGE; 

—  —  Taylor  Arctangent  functions 

—  —  Used  when  \lnput\  >  I 

function  Arctan_R_8term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Radians; 

Inverse  s  Tan  Ratio; 

Result  :  Radians; 

Temp  :  Radians ; 

begin 

if  Input  <=  1.0  then 
Temp  :=  -PI_0ver_2; 
else 

Temp  Pi_0ver_2; 
end  if; 

Inverse  s=  1.0  /  Input; 

InputSquared  :=  Radians (Inverse  *  Inverse); 

Result  :*  Temp  +  (((((( (Arctan_R_C15  *  Input_Squared  + 

Arctan~R_Cl3)  *  InputSquared  + 

Arctan_R_Cll)  *  Input_Squared  + 

Arctan_R_C9)  *  Input_Squared  + 

Arctan_R~C7)  *  Input~Squared  + 

Arctan”R~C5)  *  Input^Squared  + 

Arctan_R~C3)  *  Input_Squared  - 
1.0)  *  Radians(Inverse); 

return  Result; 
end  Arctan_R_8term; 

pragma  PAGE; 

function  Arctan_R_7term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Radians; 

Inverse  :  Tan  Ratio; 

Result  :  Radians; 

Temp  :  Radians ; 


m 


begin 

if  Input  <=  1.0  then 
Temp  :=  -PI_0ver_2; 
else 

Temp  :=  Pi_0ver_2; 
end  if; 


Inverse  :=  1.0  /  Input; 

Input_Squared  :=  Radians (Inverse  *  Inverse); 

Result  :=  Temp  +  ((((((Aretan_R_C13  *  Input_Squared  + 

Arctan_R_Cll)  *  Input_Squared  + 
Arctan_R_C9)  *  Input_Squared  + 
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return  Result; 
end  Arctan  R  7 term; 


Arctan_R_C7)  *  Input_Squared  + 
Arctan_R~C5)  *  Input_Squared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *  Radians (Inverse); 


pragma  PAGE; 

function  Arc tan_R_6term( Input  :  Tan_Ratio)  return  Radians  is 


Input_Squared  :  Radians; 

Inverse  :  Tan  Ratio; 

Result  :  Radians; 

Temp  :  Radians; 

begin 

if  Input  <=  1.0  then 
Temp  :=  -PI_0ver_2; 
else 

Temp  :=  Pi_0ver_2; 
end  if; 

Inverse  :=  1.0  /  Input; 

Input_Squared  :=  Radians (Inverse  *  Inverse); 

Result  :=  Temp  +  (((((Arctan_R_Cll  *  Input_Squared  + 

Arctan~R_C9)  *  Input_Squared  + 
Arctan_R_C7)  *  Input_Squared  + 
Arctan_R_C5)  *  InputSquared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *~*Radians( Inverse); 

return  Result; 
end  Arctan^R_6term; 


pragma  PAGE; 

function  Arctan  R  5term(Input 


Tan  Ratio)  return  Radians  is 


Input_ Squared 


Result 

Temp 


Radians; 
Tan  Ratio; 
Radians ; 
Radians ; 


begin 

if  Input  <=  1.0  then 


Temp 
else 
Temp 
end  if; 

Inverse 
Input._Squared 
Result  Temp 


=  -PI  Over  2; 


Pi  Over  2; 


1.0  /  Input; 

Radians(Inverse 
((((Arctan  R  C9 


return  Result; 
end  Arctan  R  5term; 


Inverse); 
Input_Squared  + 
Arctan_R_C7)  *  Input_Squared  + 
Arctan_R~C5)  *  Input_Squared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *  Radians (Inverse); 


pragma  PAGE; 
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function  Arctan_R_4term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Radians; 

Inverse  :  Tan_Ratio; 

Result  :  Radians; 

Temp  :  Radians; 

begin 

if  Input  <=  1.0  then 
Temp  :=  -PI_0ver_2; 
else 

Temp  :=  Pi_0ver_2; 
end  if; 

Inverse  :=  1.0  /  Input; 

Input_Squared  :=  Radians(Inverse  *  Inverse); 

Result  :=  Temp  +  (((Arctan_R_C7  *  Input_Squared  + 

Arctan_R_C5)  *  Input_Squared  + 
Arctan_R_C3)  *  Input_Squared  - 
1.0)  *  Radians(Inverse); 

return  Result; 
end  Arctan_R_4term; 

pragma  PAGE; 

—  —  Alternate  Taylor  Arctangent  functions 
- Used  when  \Input\  <  I 

function  Alt_Arctan_R_8term(Input  s  Tan_Ratio)  return  Radians  is 

Input_Squared  ;  Tan_Ratio; 

Inter_Result  :  Tan  Ratio; 

Result  :  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((((Alt_Arctan_R_C15  *  Input_Squared  + 

Alt_Arctan_R_C13)  *  Input_Squared  + 

Alt_Arctan_R_Cll)  *  Input_Squared  + 

Alt_Arctan_R_C9)  *  Input_Squared  + 

Alt_Arctan_R_C7)  *  Input _Squared  + 

Alt_Arctan_R_C5)  *  Input_Squared  + 

Alt_Arctan~R~C3)  *  Input~Squared; 

Result  :=  Radians(Inter_Result  *-Input  +  Input); 
return  Result; 
end  Alt_Arctan_R_8term; 

pragma  PAGE; 

function  Alt_Arctan_R_7term(Input  :  Tan_Ratio)  return  Radians  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan_Ratio; 

Result  :  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((((Alt_Arctan_R_C13  *  Input_Squared  + 

Alt_Arctan_R~Cll)  *  Input_Squared  + 

Alt_Arctan_R_C9)  *  Input_Squared  + 
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Alt_Arctan_R_C7)  *  Input_Squared  + 
Alt_Arctan_R~C5)  *  Input_Squared  + 
Alt_Arctan_R_C3)  *  Input_Squared; 
Result  :=  Radians(Inter_Result  *  Input  +  Input); 
return  Result; 
end  Alt  Arctan  R  7 term; 


pragma  PAGE; 

function  Alt  Arctan  R  6term(Input  :  Tan_Ratio)  return  Radians  is 


Input_Squared  :  Tan_Ratio; 
Inter_Result  :  Tan_Ratio; 
Result  :  Radians; 


begin 

Input_Squared  :=  Input  *  Input; 
Inter_Result  :=  ((((Alt_Arctan_R_Cll  * 

Alt_Arctan_R_C9)  * 
Alt_Arctan_R_C7)  * 
Alt_Arctan_R_C5)  * 
Alt_Arctan_R_C3)  * 
Result  :=  Radians(Inter_ Result  *  Input 
return  Result; 
end  Alt  Arctan  R  6 term; 


Input_Squared  + 
Input_Squared  + 
Input_Squared  + 
Input_Squared  + 
Input_Squared; 

+  Input); 


pragma  PAGE; 

function  Alt_Arctan_R_5term(Input  :  TanRatio)  return  Radians  is 


Input_Squared  s  TanRatio; 
Inter_Result  s  Tan  Ratio; 
Result  :  Radians; 


begin 

Input_Squared  :*  Input  *  Input; 

Inter_Result  :=  (((Alt_Arctan_R_C9  *  Input_Squared  + 

Alt_Arctan_R_C7)  *  Input_Squared  + 
Alt_Arctan_R_C5)  *  Input_Squared  + 
Alt_Arctan_R_C3)  *  Input_Squared; 

Result  :=  Radians(Inter_Result  *  Input  +  Input); 
return  Result; 
end  Alt_Arctan_R_5term; 

pragma  PAGE; 

function  Alt_Arctan_R_4term(Input  ;  Tan_Ratio)  return  Radiems  is 

Input_Squared  :  Tan_Ratio; 

Inter_Result  :  Tan~Ratio; 

Result  Radians; 

begin 

Input_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((Alt_Arctan_R_C7  *  Input_Squared  + 

Alt_Arctan_R_C5)  *  Input_Squared  + 

Alt_Arctan  R_C3)  *  Input_Squared; 

Result  :=  Radians(Inter_ResuIt  *  Input  +  Input); 
return  Result; 
end  Alt  Arctan  R  4term; 


1 

] 

j 


1 

\ 

i 

j 

1 

j 
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pragma  PAGE; 

—  —  Modified  Taylor  Sine  functions 

function  Mod_Sin_R_8term(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  CosJRatio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=  Pi_0ver  4  then 

Inter_Result_0  :=  ReaI(Pi_0ver_2  -  abs(Input)); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  ((((((Cos_R_C15  *  X_Squared  + 

Cos~R~C13)  *  X~Squared  + 

Cos_R_Cll)  *  X_Squared  + 

Cos_R_C9 )  *  X_Squared  + 

Cos_R_C7)  *  X_Squared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 
if  Input  <=  -  Pi  0ver_4  then 

Inter_Result_I  :*  -  Inter_Result_l; 
end  if;  “ 

else 

X  Squared  :=>  Input  *  Input; 

Inter  Result  1  :»  ((((((Sin  R  C15  *  XSquared  + 

Sin“R  C13)  *  X_Squared  + 

SinjCcil)  *  X_Squared  + 

Sin_R"C9)  *  X_Squared  + 

Sin_R"C7)  *  X_Squared  + 

Sin_R_C5)  *  X~Squared  + 

Sin_R_C3)  *  X  Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Real(Input)  +  Real(Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :  =  1.0; 

elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 

end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 

return  Result? 

end  Mod_Sin_R_8term; 

pragma  PAGE; 

function  Mod_Sin_R_7term  (Input  :  Radians)  return  Sln_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=  Pi_0ver  4  then 

Inter_Result_0  :=  ReaT(Pi_0ver_2  -  abs(Input)); 


**  ruiwt  rot  rotrumsi Anxiyuw  «v  jtvxvxn jrxxmnAv.i/ xsja  vajksiui  jjtxa  lunovMnxjtvxvxvKXMvntMBWDrv  wvku  wv  tn/wvs/xv  xv VI 
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X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  (((((Ccj_R_C13  *  X_Squared  + 

Cos_R_Cll)  *  X_Squared  + 

Cos_R_C9)  *  X~Squared  + 

Cos_R_C7)  *  X_Squared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R  C3)  *  X_Squared; 

Inter_Result_l  :  =  Inter_ResuIt_l  +  1.0; 
if  Input  <=  -  Pi_0ver_4  then 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 
else 

X_Squared  :=*  Input  *  Input; 

Inter_Result  1  :=  (((((Sin_R_C13  *  X_Squared  + 

Sin_R_Cll)  *  X_Squared  + 

Sin_R_C9)  *  X_Squared  + 

Sin  R_C7)  *  X_Squared  + 

Sin~R_C5)  *  X_Squared  + 

Sin_R“C3)  *  X_Squared; 

Inter_Result_l  i=  Inter_ResuTt_l  *  Real(Input)  +  Real(Input) 
end  if; 

if  InterResultl  >  1.0  then 
Inter_Result_l  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  7-  -1.0; 
end  if; 

Result  j«  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_R_7term; 

pragma  PAGE; 

function  Hod_Sin_R_6term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  j  Real; 

Result  :  Sin  Cosjlatio; 

X_Squared  j  Real; 

begin 

if  abs( Input)  >=  Pi_0ver  4  then 

Inter_Result_0  :=  ReaI(Pi_0ver_2  -  abs(Input)); 

X_Squared  :=~Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  7(((Cos_R_C11  *  X_Squared  + 

Cos_R_C9)  *  X_Squared  + 

Cos_R~C7)  *  X_Squared  + 

Cos~R_C5)  *  X_Squared  + 

Cos~R~C3)  *  X~Squared; 

Inter_Result_l  :=  Inter_Result_l  +  T.0; 
if  Input  <=  -  Pi  0ver_4~then 

Inter_Result_I  :=  -  Inter_Result_l; 
end  if; 
else 

X_Squared  :=  Input  *  Input; 

Inter_Result_l  ((((Sin_R_Cll  *  X_Squared  + 

Sin_R_C9)  *  X_Squared  + 

Sin_R_C7)  *  X_Squared  + 

Sin~R_C5)  *  X_Squared  + 
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Sin_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  Real(Input)  +  Real(Input) 
end  if; 

if  Inter_Result_l  >1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_R_6term; 

pragma  PAGE; 

function  Mod_Sin_R_5term  (Input  s  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=  Pi_0ver  4  then 

Inter_Result_0  :*  ReaI(Pi_0ver_2  -  abs(Input)); 

XSquared  :  =  Inter  Result J)  *  Inter_Result_0; 

Inter_Result_l  :=■  ^((Cos_R_C9  *  X_Squared  + 

C°s:r_C7)  *  XSquared  + 

Cos~R_C5)  *  XSquared  + 

Cos_R_C3)  *  XSquared; 

Inter_Result_l  :*  InterResultl  +  1.0; 
if  Input  <*  -  Pi  0ver_4  then 

InterResultl  :*  -  Inter_Result_l; 
end  if; 
else 

XSquared  :=  Input  *  Input; 

Inter_Result_l  :=  (((Sin_R_C9  *  X_Squared  + 

Sin_R_C7)  *  X_Squared  + 

Sin_R_C5)  *  X_Squared  + 

Sin_R~C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Real(Input)  +  Real(Input) 
end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  7=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_R_5term; 

pragma  PAGE; 

function  Mod_Sin_R_4term  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  s  Real; 

Inter_Result~l  :  Real; 

ResulT  ;  Sin  Cos_Ratio; 

X_Squared  :  Real; 
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begin 

if  abs(Input)  >=  Pi_0ver  4  then 

Inter_Result_0  :=  ReaI(Pi_0ver_2  -  abs(Input)); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  ((Cos_R_C7  *  X_Squared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 
if  Input  <=  -  Pi  0ver_4  then 

Inter_Result_T  :=  -  Inter_Result_l; 
end  if;  ~ 
else 

X_Squared  :=  Input  *  Input; 

Inter_Result_l  :*  ((Sin_R_C7  *  X_Squared  + 

Sin_R_C5)  *  X_Squared  + 

Sin_R_C3)  *  X_Squared; 

Inter_Result_l  :*  Inter_Result_l  *  Real(Input)  +  Real(Input) 
end  if; 

if  Inter_Result_l  >1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=>  -1.0; 
end  if; 

Result  j*  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result? 
end  Mod_Sin_R_4term; 

pragma  PAGE; 

- Modified  Taylor  Cosine  Junctions 

function  Mod_Cos_R_8term(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  ;  Radians; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=  Pi  0ver_4)  or  (Input  >*=  3.0  *  Pi_0ver_4)  then 
if  Input  >  Pl_0ver_2  then 
Mod_Input  T=  Pi  -  Input; 
else 

Mod_Input  j=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result_l  :=  ((((((Cos_R_C15  *  X_Squared  + 

Cos_R_C13)  *  X^Squared  + 

cosjrcil)  *  X~Squared  + 

Cos_R?C9)  *  X_Squared  + 

Cos_R_C7)  *  X_Squared  + 

Cos~R”C5)  *  X_Squared  + 

Cos_R-C3)  *  X~Squared; 

Inter_Result  1  :=  Inter_ResuIt_l  +  1.0  ; 
if  Input  >  Pf  0ver_2  theH 

Inter_ResuIt_l  :=  -  Inter_Result_l; 
end  if; 
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else 


Inter_Result_0  :=  Real(Pi_0ver_2  -  Input); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  ((((((Sin_R_C15  *  X_Squared  + 

Sin~R_C13)  *  X_Squared  + 

Sin~R_Cll)  *  X_Squared  + 

Sin~R_C9)  *  X_Squared  + 

Sin_R_C7)  *  X_Squared  + 

Sin~R_C5)  *  X_Squared  + 

Sin_R_C3)  *  X_Squared; 

Inter  Result  1  *  Inter  Result  0  +  Inter  Result  0; 


-  1 


1  :  = 


Inter_Result_ 
end  if; 

if  Inter_Result_l 
Inter_Result_l 
elsif  Inter_Result 
Inter_Result_l 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result 
return  Result; 
end  Hod  Cos  R  8 term; 


>  1.0  then 

!-  1.0; 

_1  <  -1.0  then 

r*  -1.0; 


1  ); 


pragma  PAGE; 

function  Hod  Cos  R  7term(Input 


Radians)  return  Sin  Cos  Ratio  is 


Inter_Result 
InterResult" 
Hodlnput 
Result 
X  Squared 


Real; 

Real; 

Radians; 

Sin  Cos_Ratio; 
Real; 


begin 

if 


3.0  *  Pi_0ver_4)  then 


X_Squared  + 
X  Squared  + 
+ 


(Input  <=  Pi  0ver_4)  or  (Input  > 
if  Input  >  Pl_0ver_2  then 
Hod_Input  Pi  -  Input; 
else 

Hod_Input  :=  Input; 
end  ifT 

X_Squared  :=  Hod_Input  *  Hod_Input; 
liiter_Result_l  :=  (((((Cos  R_C13  * 

Cos~R_Cll)  * 

Cos_R_C9)  *  X_Squared 
Cos_R~C7)  *  X~Squared  + 
Cos_R_C5)  *  X_Squared  + 
Cos_R~C3)  *  X  Squared; 
Inter_Result  1  :=  Inter_Result_l  +  T.O  ; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt_l  :=  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :=  Real(Pi_0ver_2  -  Input); 

X  Squared  :=  Inter _Result_0  *  Inter_Result_0; 
Inter_Result_l  :=  '(((((Sin_R_C13  *  X_Squared 

Sin_R_Cll)  *  X_Squared 
Sin~R_C9)  *  X_Squared  + 
Sin_R_C7)  *  X~Squared  + 
Sin_R_C5)  *  X~Squared  + 
Sin_R_C3)  *  X~Squared; 
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Inter_Result_l  :=  Inter_Result_l  *  Inter_Result_0  +  Inter_Result_0; 
end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Hod_Cos_R_7term; 

pragma  PAGE; 

function  Mod_Cos_R_6tero(Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  :  Radians; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=  Pi  0ver_4)  or  (Input  >*  3.0  *  Pi_0ver_4)  then 
if  Input  >  Pl_0ver_2  then 
Hod_Input  s*  Pi  -  Input; 
else 

Mod_Input  s*  Input; 
end  if; 

X_Squared  :»  Hodlnput  *  Modlnput; 

InterResultl  ;»  ((((Cos_R_Cll  *  X_Squared  + 

Cos~R~C9)  *  X_Squared  + 

CosJR_C7)  *  X_Squared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R_C3)  *  XSquared; 

Inter_Result  1  ;*  Inter_Result_l  +  1.0  ; 
if  Input  >  PT  0ver_2  then 

Inter_ResuTt_l  7=  -  Inter_Result_l; 

<  end  if; 

else 

Inter_Result  0  :*  Real(Pi_0ver_2  -  Input); 

XSquared  :*'"lnter  Result_0  *  Inter_Result_0; 

Inter_Result_l  7(((Sin~R_Cll  *  X_Squared  + 

Sin~R_C9)  *  X_Squared  + 

Sin_R_C7)  *  X”Squared  + 

Sin_R_C5)  *  X~Squared  + 

Sin~R_C3)  *  X~Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Inter_Result_0  +  Inter_Result_0; 
end  if; 

if  Inter_Result_l  >  1.0  then 
InterJResult~l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Cos_R_6term; 

pragma  PAGE; 
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function  Mod_Cos_R_5 tens  (Input  :  Radians)  return  Sin_Cos_Ratio  is 

Inte~_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  :  Radians; 

Result  :  Sin  Cos_Ratio; 

X  Squared  :  Real; 
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begin 

if  (Input  <=  Pi  0ver_4)  or  (Input  >=  3.0  *  Pi  0ver_4)  then 
if  Input  >  Pi_0ver__2  then 
Mod_Input  :=.  Pi~-  Input; 
else 

Hod_Input  :*  Input; 
end  ifj 

X_Squared  :=  Mod_Input  *  Mod  Input; 

Inter_Result_l  :*  (((Cos_R_C9  *  X_Squared  + 

Cos_R_C7)  *  XjSquared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter~Result_l  +1.0  ; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt_l  7=  -  InterJResult_l; 
end  if;  ” 
else 

Inter_Result_0  :*  Real(Pi_0ver_2  -  Input); 

X_Squared  : »~In ter_Resul t_0  *  Inter_Result_0; 

Inter  Result  1  :*  (((Sin  R_C9  *  XSquared  + 

Sin_R“C7)  *  XSquared  + 

Sin~R~C5)  *  X  Squared  + 

Sin_R_C3)  *  X_Squared; 

Inter_Result_l  :=*  Inter_Result_l  *~Inter_Result_0  +  Inter_Result_0; 
end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter__Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if;  ~ 

Result  :  =  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Cos_R_5term; 

pragna  PAGE; 

function  Mod_Cos_R_4term(Input  :  Radians)  return  Sin_Cos  Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  :  Radians; 

Result  :  Sin  Cos_Ratio; 

X_Squared  s  Real; 

begin 

if  (Input  <=  Pi  0ver_4)  or  (Input  >=  3.0  *  Pi_0ver_4)  then 
if  Input  >  Pl_0ver_2  then 
Mod_Input  :=*  Pi  -  Input; 
else 

Mod_Input  :=  Input; 
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end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result_l  :=  ((Cos_R_C7  *  X_Squared  + 

Cos_R_C5)  *  X_Squared  + 

Cos_R_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0  ; 
if  Input  >  Pi  0ver_2  then 

Inter_ResuIt_l  :=  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :*  Real(Pi_0ver_2  -  Input); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  ((Sin_R_C7  *  X_Squared  + 

Sin_R_C5)  *  X_Squared  + 

Sin_R_C3)  *  X_Squared; 

Inter_Result_l  Inter_Result_l  *  Inter_Result_0  +  Inter_Result_0; 
end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  in  1.0; 
elsif  In"t<?r_Result_l  <  -1.0  then 
Inler_Result_l  j=  -1.0; 
end  if; 

Result  :*  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result;  “ 

end  Mod_Cos_R_4 terra; 

pragma  PAGE; 

- Modified  Taylor  tangent  junctions 

function  Mod_Tan_R_8term  (Input  :  Radians)  return  Tan  Ratio  is 
begin 

return  Tan_Ratio(Sin_R_8term(Input))  / 

Tan_Ratio(Cos_R_8term(Input)) ; 
end  Mod_Tan_R_8term; 

pragma  PAGE; 

function  Mod_Tan_R_7 term  (Input  :  Radians y  return  Tan  Ratio  is 
begin 

return  Tan_Ratio(Sin_R_7term(Input))  / 

Tan_Ratio(Cos_R_7term(Input)); 
end  Mod_Tan_R_7term; 

pragna  PAGE; 

function  Mod_Tan_R_6 terra  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_R_6term(Input))  / 

Tan_Ratio(Cos_R_6term(Input)) ; 
end  Mod_Tan_R_6term; 

pragma  PAGE; 

.  function  Mod_Tan_R_5term  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_R_5term(Input))  / 

Tan_Ra  t io ( Cos_R_5  terra( Inpu  t ) ) ; 
end  Mod_Tan_R~5 term ; 

pragma  PAGE; 
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function  Mod_Tan_R_4term  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_R_4term(Input))  / 
Tan_Ratio(Cos_R_4term(Input)); 
end  Mod_Tan_R_4  term ; 

end  Taylor_Radian_Operations; 
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separate  (Polynomials. Taylor_Series) 
package  body  Taylor_Degree_Operations  is 


—  —  The  Sine  constants  are  used  in  the  Taylor  operations  for  computing 

—  the  sine.  The  Cosine  constants  are  used  in  computing  cosines.  In 

—  the  Modified  Taylor  operations,  however,  both  sets  of  constants  are 

—  used.  They  are  named  to  correspond  to  the  power  of  X  (Input)  with 

—  which  they  are  termed. 


Sin_D_Cl 

Sin_D_C3 

Sin_D_C5 

Sin_D_C7 

Sin_D_C9 

Sin_D_Cll 

Sin  D_C13 

Sin“D_C15 


constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 


1.74532_92e-02; 
-8 . 86096_158e-07 
1.34960_162e-ll 
-9 . 78838_484e-17 
4.14126  699e-22 
-1 . 14680~931e-27 
2 . 23780_628e-33 
-3.13088  457e-39 


C°s_D_C0 

C°s_D_C2 

Cos_D_C4 

Cos_D_C6 

Cos_D_C8 

Cos_D_C10 

Cos-D  C12 

Cos**D**C14 


constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 


1.74532_92e-02; 
-1 . 52308_710e-04 
3.86632  386e-09 
-3.92583"199e-14 
2.13549  430e-19 
-7.22787  516e-25 
1.66798  234e-30 
-2.79173“888e-36 


Tan  D_C1 
Tan**D_C3 
Tan”D_C5 
Tan”D  C7 
Tan_D~C9 
Tan_D  Cll 
Tan_D~C13 
Tan  D  C15 


constant 

constant 

constant 

constant 

constant 

constant 

constant 

constant 


1.74532 

1.77219* 

2.15936* 

2.66244* 

3.28653* 

4.05735* 

5.00907* 

6.18404* 


92e-02; 

231e~06; 

259e-10; 

068e-14; 

’633e-18; 

804e-22; 

561e-26; 

282e-30; 


pragma  PAGE; 

—  Taylor  Sine  functions 


function  Sin_D_8term  (Input  :  Degrees)  return  Sin  Cos_Ratio  is 


Inter_Result 
Result 
X  Squared 


Real; 

Sin  Cos_Ratio; 
Real;  *" 


begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((((Sin_D_C15 

Sin_D_C13) 

Sin_D_Cll) 

Sin_D_C9) 

Sin_D  C7) 

Sin_D**C5) 

Sin  D“C3) 

Inter_Result  :=  Inter_ResuIt***  Real (Input)  + 
(Degrees(Sin_D_Cl)  *  Input); 

if  Inter  Result  >  1.0  then 


X_Squared 
X_Squared 
X~Squared 
X_Squared 
X_Squared 
X_Squared 
X**  Squared ; 
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Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  InterJResult  ); 
return  Result; 
end  Sin_D_8term; 

pragma  PAGE; 

function  Sin_D_7term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real;  "" 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  (((((Sin_D_C13  *  X_Squared  + 

Sin_D_Cll)  *  X~Squared  + 

Sin_D_C9)  *  X_Squared  + 

Sin_D_C7)  *  X_Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result  :  =  InterJResult  *  Real(Input)  + 

( Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  ;  =  1.0; 
elsif  Inter_Result  <  -1.0  then 
InterJResult  s*  —1.0; 
end  if;  ~ 

Result  :=»  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result! 
end  Sin_D_7term; 

pragma  PAGE; 

function  Sin_D_6term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real;  ~ 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((((Sin_D_Cll  *  X_Squared  + 

Sin~D~C9)  *  X_Squared  + 

Sin~D_C7)  *  X_Squared  + 

Sin~D_C5)  *  X_Squared  + 

Sin~D  ,C3)  *  X  Squared; 

Inter_Result  :=  Inter_ResuIt  *  Real(Input)  + 

( Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=■  -1.0; 
end  if; 

Result  s  =  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result! 
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end  Sin_D_6term; 
pragma  PAGE; 

function  Sin_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

X_Squared  :=»  Input  *  Input; 

Inter_Result  :=  (((Sin_D_C9  *  X  Squared  + 

Sin_D_C7)  *  X~Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin_D~C3)  *  X_Squared; 

I,nter_Result  :=  Inter_Result  *  Real(Input)  + 

( Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  ;=  1.0; 
elsif  Inter_Result  <  -1.0  then 
InterJXesult  :  =  -1.0; 
end  if; 

Result  :»  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result;  ~ 
end  Sin_D_5term; 

pragma  PAGE; 

function  Sin_D_4term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

InterResult  s  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

X_Squared  :=  Input  *  Input; 

Inter_Result  :=  ((Sin_D_C7  *  X_Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result  :«  Inter_Result  *  Real(Input)  + 

( Degrees (Sin_D_Cl)  *  Input); 
if  Inter_Result  >  1.0  then 
Inter_Result  :*  1.0; 
elsif  InIer_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if;  ~ 

Result  :*  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Sin_D_4term; 

pragma  PAGE; 

—  —  Taylor  Cosine  functions 

function  Cos_D_8term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin  Cos  Ratio; 
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X_Squared  :  Degrees; 
begin 

if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  ((((((Cos_D_C14  *  X_Squared  + 

Cos_D_C12)  *  X_Squared  + 

Cos_D~C10)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 

Cos_D_C6)  *  X~Squared  + 

Cos_D_C4)  *  X_Squared  + 

Cos  D~C2)  *  X_Squared; 

Inter_Result  :=  Inter_ResuIt*”+  1.0; 
if  Input  >  90.0  then 

Inter_Result  :=  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
InterResult  :=»  -1.0; 
end  if;  ~ 

Result  :»  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result! 
end  Cos_D_8term; 

pragma  PAGE; 

function  Cos_D_7term  (Input  s  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  s  Real; 

Mod_Input  :  Degrees; 

Result  s  Sin_Cos_Ratio; 

X_Squared  :  Degrees! 

begin 

if  Input  >  90.0  then 

Modlnput  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  ifj 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  (((((Cos_D_C12  *  X_Squared  + 

CosXdO)  *  X_Squared  + 

C°slD_C8)  *  X_Squared  + 

Cos_d!c6)  *  X_Squared  + 

Cos_D~C4)  *  X_Squared  + 

CosXc2)  *  X_Squared; 

Inter_Result  :=  Inter_Result  +  1.0; 
if  Input  >  90.0  then 

Inter_Result  :»  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
el3if  Inter  Result  <  -1.0  then 
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Inter_Result  :=  — 1 - 0 j 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos_D_7term; 

pragma  PAGE; 

function  Cos_D_6term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Hodlnput  :  Degrees; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Degrees ; 

begin 

if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod  Input; 

Inter_Result  :=  -((((Cos_D_ClO  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos_D_C4)  *  X~Squared  + 

Cos_D“C2)  *  X_Squared; 

InterResult  :=*  InterResult  +  1.0T 
if  Input  >  90.0  then 

Inter  Result  :=»  -  Inter_Result; 
end  if; 

if  InterResult  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter  Result  <  -1.0  then 
InterResult  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos_D_6term; 

pragma  PAGE; 

function  Cos_D_5term  (Input  j  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Mod_Input  :  Degrees; 

Result  s  Sin_Cos_Ratio; 

X_Squared  :  Degrees; 

begin 

if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  (((Cos_D_C8  *  X_Squared  + 

Cos_D_C6)  *  X~Squared  + 

Cos_D_C4)  *  X_Squared  + 
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Cos_D_C2)  *  X_Squared; 

Inter_Result  :=  Inter_Result  +  1.0; 
if  Input  >  90.0  then 

Inter_Result  :=  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result; 
end  Cos_D_5term; 

pragma  PAGE; 

function  Cos_D_4term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin_Cos_Ratio; 

X_Squared  :  Degrees; 

begin 

if  Input  >  90.0  then 

Hod_Input  :*  180.0  -  Input; 
else 

Modlnput  :«  Input; 
end  if; 

X_Squared  :*  Modlnput  *  Mod_Input; 

Inter  Result  :»  ((Cos  D_C6  *  X  Squared  + 

Cos”D_C4)  *  X_Squared  + 

Cos~D_C2)  *  XSquared; 

Inter_Result  ;  =  Inter_Result  +  l70; 
if  Input  >  90.0  then 

Inter_Result  :=  -  Inter_Result; 
end  if; 

if  Inter_Result  >  1.0  then 
Inter_Result  :=  1.0; 
elsif  Inter_Result  <  -1.0  then 
Inter_Result  :»  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result  ); 
return  Result! 
end  Cos_D_4term; 


pragma  PAGE; 

—  —  Taylor  Tangent  fuclions 
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function  Tan_D_8term  (Input  :  Degrees)  return  Tan  Ratio  is 


Inter_Result  :  Real; 
Result  :  Tan  Ratio; 

X_Squared  s  Real; 


begin 

X_Squared  :=  Input  *  Input; 
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Inter_Result  :=  ( ( ( ( ( (Tan_D_C15  *  X_Squared  + 

Tan_D_Cl3)  *  X_Squared  + 
Tan_D_Cll)  *  X_Squared  + 
Tan_D_C9 )  *  X_Squared  + 

Tan_D_C7)  *  X_Squared  + 
Tan_D_C5)  *  X_Squared  + 
Tan_D_C3)  *  X_Squared; 

Result  :=  Tan_Ratio(Inter_Result)  *  Tan_Ratio( Input)  + 
Tan_Ratio(Input)  *  Tan_D_Cl; 
return  Result; 
end  Tan  D  8 term; 


pragma  PAGE; 

—  —  Modified  Taylor  Sine  functions 

function  Mod_Sin_D_8term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  s  Real; 

begin 

if  abs(Input)  >=*  45.0  then 

InterResultO  s*  Real(90.0  -  abs(Input)); 

X_Squared  s*  Inter  ResultO  *  Inter_Result_0; 

In ter_Resul t_l  :«  T(((((Cos_D_C14  *  X_Squared  + 

7  ~  Cos”D_C12)  *  XSquared  + 

COS7D7C10)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 

Cos7D_C6)  *  X_Squared  + 

Cos_d7C4)  *  X_Squared  + 

Cos7d_C2)  *  XSquared; 
Inter_Result_l  :=  Inter_ResulI_l  +  1.0; 
if  Input  <=  -  45.0  then 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 

else 

XSquared  :=  Input  *  Input; 

Inter_Result_l  :=  ((((((Sin  D  C15  *  X_Squared  + 

Sin“D~C13)  *  X_Squared  + 

Sin7D7cil)  *  X  Squared  + 

Sin_D_C9)  *  X7squared  + 

Sin_D_C7)  *  X_Squared  + 

Sin_D_C5)  *  x7Squared  + 

Sin_D7c3)  *  X~Squared; 

Inter_Result_l  ;=  Inter  Result_l  *  ReaT(Input)  + 
(Degrees(Sin_D_Cl)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 

elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 

end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l); 

return  Result; 
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end  Mod_Sin_D_8term; 
pragaa  PAGE; 

function  Mod_Sin_D_7term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >*  45.0  then 

Inter_Result_0  :»  Real(90.0  -  abs(Input)); 

X_Squared  :=  Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  :=>  ^((((Cos_D_C12  *~X_Squared  + 

Cos_D_C10)  *  X_Squared  + 

Cos~D~C8)  *  X~Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos_D_C4)  *  X_Squared  + 

Cos_D  C2)  *  X”Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 
if  Input  <=  -  45.0  then 

Inter_Result_l  -  Inter_Result_l; 
end  if; 
else 

X_Squared  :*  Input  *  Input; 

Inter_Result_l  :*  (((((Sin_D_C13  *  X_Squared  + 

Sin~D~Cll)  *  XSquared  + 

Sin_D_C9)  *  X_Squared  + 

Sin_D_C7)  *  X_Squared  + 

Sin_D_C5)  *  X~Squared  + 

Sin_D  C3)  *  X_Squared; 

Inter_Result_l  :»  Inter  Result_l  *  Real(Input)  + 

(Degrees (Sin_D_cT)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter^_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :  =  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_D_7term; 

pragaa  PAGE; 

function  Mod_Sin_D_6term  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin_Cos_Ratio; 

X_Squared  ;  Real; 

begin 

if  abs(Input)  >=*  45.0  then 

Inter_Result_0  :*  Real(90.0  -  abs(Input)); 

XJSquared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=>  ((((Cos~D_C10  *  X_Squared  + 
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Cos_D_C8)  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos_D_C4)  *  X~Squared  + 

Cos~D_C2)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 
if  Input  <=  -  45.0  then 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 
else 

X_Squared  :=  Input  *  Input; 

Inter_Result_l  ((((Sin_D_Cll  *  X  Squared  + 

Sin_D  C9)  *  X_Squared  + 

Sin_D“C7)  *  X_Squared  + 

Sin_D_C5)  *  X  Squared  + 

Sin_D_C3)  *  X”Squared; 

Inter_Result_l  :*  Inter  Re^ult_l  *  Real(Input)  + 

(Degrees (Sin_D_Cl)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  -1.0; 

end  if; 

Result  :»  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_D_6term; 

pragaa  PAGE; 

function  Mod_Sin_D_5term  (Input  :  Degrees)  return  Sin_£os_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  s  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >=  45.0  then 

Inter_Result_0  :=  Real(90.0  -  abs(Input)); 

X_Squared  :=  Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  s»  T((Cos_D_C8  *  X_Squared~+ 

Cos~D~C6)  *  X_Squared  + 

C°s:d_C4)  *  X~Squared  + 

C°s:d_C2)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 
if  Input  <=  -  45.0  then” 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 
else 

X_Squared  :=  Input  *  Input; 

Inter_Result_l  :=  (((Sin_D_C9  *  X_Squared  + 

Sin_D~C7)  *  X_Squared  + 

Sin_D_C5)  *  X~Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter  Result_l  *  Real (Input)  + 

~  (Degrees (Sin_D_Cl)  *  Input); 

end  if; 

if  Inter  Result  1  >  1.0  then 
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Inter_Result_l  :=  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  7=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_D_5term; 

pragma  PAGE; 

function  Hod_Sin_D_4term  (Input  :  Degrees)  return  Sin_Cos_Rati,o  is 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  abs(Input)  >~  45.0  then 

Inter_Result_0  :=  Real(90.0  -  abs(Input)); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  ((Cos_D_C6  *  X_Squared  + 

Cos_D_C4)  *  X~Squared  + 

Cos_D_C2)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +  1.0; 
if  Input  <«  -  45.0  then 

Inter_Result_l  -  Inter_Result_l; 
end  if; 
else 

X  Squared  :*  Input  *  Input; 

Inter  Result  1  :*  ((Sin_D_C7  *  X_Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin~D~C3)  *  X~Squared; 

Inter_Result_l  ;*  Inter  Resultjl  *  Real(Input)  + 

~  (Degrees(Sin_D_cT)  *  Input); 

end  if; 

if  Inter_Result_l  >  1.0  then 

Inter_Result_l  :=  1.0;  ' 

elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Sin_D_4 terra; 

pragma  PAGE; 

—  —  Modified  Taylor  Cosine  functions 

function  Mod_Cos_D_8term(Input  :  Degrees)  return  Sin_Cos_Ratio  i3 

Inter_Result_0  :  Real; 

Inter_Result_l  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=  45.0)  or  (Input  >=  135.0)  then 
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if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result_l  :=  ((((({Cos_D_C14  *  X_Squared  + 

Cos_D_C12)  *  X_Squared  + 

Cos_D_C10)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 
Cos_D_C6)  *  X_Squared  + 
Cos_D_C4)  *  X_Squared  + 
Cos_D~C2)  *  X_Squared; 
Inter_Result_l  :=«  Inter_ResuIt_l  +  l70  ; 
if  Input  >  90.0  then 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :=  Real(90.0  -  Input); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 
Inter_Result_l  :=  ((((((Sin_D_C15  •'  X_Squared  + 

Sin_D_C13)  *  X_Squared  + 

Sin_D~Cll)  *  X_Squared  + 

Sin_D~C9)  *  X_Squared  + 
Sin_D_C7)  *  X_Squared  + 
Sin_D~C5)  *  X_Squared  + 
Sin~D_C3)  *  X~Squared; 

Inter_Result_l':=  Inter_Result_l  *  Inter_Result_0  + 
(Sin_D_Cl  *  Inter_Result_0); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  j»  1.0; 
elsif  InterResultl  <  -1.0  then 
Inter_Result_l  7*  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  D  8 term; 


pragma  PAGE; 

function  Mod_Cos_D_7term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 


Inter_Result_0 

Inter_Result_l 

Mod_Input 

Result 

X_Squared 


Real; 

Real; 

Degrees; 

Sin  Cos_Ratio; 
Real; 


begin 

if  (Input  <=  45.0)  or  (Input  >=  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_InjSut;- 
Inter_Result_l  :=  (((((Cos_D~C12  *  X_Squared  + 


CAMP  Software  Detailed  Design  Document 


Cos_D_ClO)  *  X_Squared  + 

Cos_D_C8)  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos_D_C4)  *  X_Squared  + 

Cos_D_C2)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  +1.0  ; 
if  Input  >  90.0  then 

Inter_Result_l  :=  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :=  Real(90.0  -  Input); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  s=  (((((Sin_D_C13  *-X_Squared  + 

Sin_D_Cll)  *  X_Squared  + 

Sin~D~C9)  *  X_Squared  + 

Sin_D_C7)  *  X_Squared  + 

Sin_D  C5)  *  X  Squared  + 

Sin_D"C3)  *  X~Squared; 

Inter_Result_l  :=  Inter_ResuIt_l  *  Inter_Result_0  + 
(Sin_D_Cl  *  Inter_Result_0); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  1.0; 
elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  7*  -1.0; 
end  if; 

Result  :=■  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Cos_D_7  term; 

pragma  PAGE; 

function  Mod_Co.«?_D_6term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter~Result_l  s  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=  45.0)  or  (Input  >*  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  :=  180.0  -  Input; 
else 

Mod_Input  :=■  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result_l  :=  ((((Cos_D_ClO  *  X_Squared  + 

COSMOS)  *  X_Squared  + 

Cos_D_C6)  *  X_Squared  + 

Cos_D_C4)  *  X_Squared  +  . 

Cos_D_C2)  *  X_Squared; 

Inter_Result  1  :=  Inter_Result_l  +~1.0  ; 
if  Input  >  9(5.0  then 

Inter  Result  1  -  Inter  Result  1; 

end  if; 
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Inter_Result_0  :=  Real(90.0  -  Input); 

X_Squared  :=  Inter_Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  ((((Sin_D_Cll  *  X_Squared  + 

Sin_D_C9)  *  X_Squared  + 

Sin_D_C7)  *  X_Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Inter_Result_0  + 
(Sin_D_Cl  *  Inter_Result_0) ; 

end  if; 

if  Int‘er_Result_l  >  1.0  then 
Inter_Result_l  :=*  1.0; 

■elsif  Inter_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if; 

Result  i *  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Hod_Cos_D_6term; 

pragma  PAGE; 

function  Mod_Cos_D_5term( Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  s  Real; 

Inter~Result_l  :  Real; 

Mod_Input  :  Degrees; 

Result  s  Sin  CosRatio; 

X_Squared  :  Real;  ~ 

begin 

if  (Input  <»  45.0)  or  (Input  >»  135.0)  then 
if  Input  >  90.0  then 

Mod_Input  :*  180.0  -  Input; 
else 

Mod_Input  :■  Input; 
end  if; 

X_Squared  :  =  Hod_Input  *  Mod  Input; 

Inter_Result_l  :=  (((Cos_D_CS  *  X_Squared  + 

CosXcS)  *  X_Squared  + 

Cos~D_C4)  *  X~Squared  + 

Cos_D_C2)  *  X_Squared; 

Inter_Result  1  :*  Inter~Result_l  +  1.0  ; 
if  Input  >  9(3.0  then 

Inter_Result_l  :=«  -  Inter_Result_l; 
end  if; 
else 

Inter_Result_0  :=■  Real (90.0  -  Input); 

X_Squared  :=*  Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  X((Sin_D_C9  *  X_Squared  + 

Sin~D_C7)  *  X~Squared  + 

Sin_D~C5)  *  X_Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter_Result_l  *  Inter_Result_0  + 
(Sin_D_Cl  *  Inter_Result_0); 

end  if; 

if  Inter_Result_l  >  1.0  then 
Inter~Result~l  :=  1.0; 
elsif  Inter  Result  1  <  -1.0  then 
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Inter_Result_l  :=  -1.0; 
end  if; 

Result  :=  Sin_Cos_Ratio(  Inter_Result_l  ); 
return  Result; 
end  Mod_Cos_D_5term; 

pragma  PAGE; 

function  Mod_Cos_D_4term(Input  :  Degrees)  return  Sin_Cos_Ratio  is 

Inter_Result_0  :  Real; 

Inter_Result~l  :  Real; 

Mod_Input  :  Degrees; 

Result  :  Sin  Cos_Ratio; 

X_Squared  :  Real; 

begin 

if  (Input  <=  45.0)  or  (Input  >=  135.0)  then 
if  Input  >  90.0  then 

Mod_Inpat  :=  180.0  -  Input; 
else 

Mod_Input  :=  Input; 
end  if; 

X_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result_l  :■  ((Cos_D_C6~  *  XSquared  + 

Cos~D~C4)  *  X~Squared  + 

Cos_D~C2)  *  X_Squared; 

Inter_Result  1  s*  Inter_Result_l  +  1.0  ; 
if  Input  >  9U.0  then 

Inter  Result  1  :«  -  Inter  Result  1; 
end  if; 
else 

Inter_Result_0  Real(90.0  -  Input); 

X_Squared  :=  Inter  Result_0  *  Inter_Result_0; 

Inter_Result_l  :=  ^(Sin_D~C7  *  X_Squared  + 

Sin_D_C5)  *  X_Squared  + 

Sin_D_C3)  *  X_Squared; 

Inter_Result_l  :=  Inter~Result_l  *  Inter_Result_0  + 
(Sin_D_Cl  *  Inter_Result_0); 

end  if; ■ 

if  Inter_Result_l  >  1.0  then 
Inter_Result_l  :=  1.0; 
elsif  InIer_Result_l  <  -1.0  then 
Inter_Result_l  :=  -1.0; 
end  if;  ~ 

Result  :=  Sin_CosJRatio(  Inter_Result_l  ); 
return  Result; 
end  Mod  Cos  D  4 term; 


pragma  PAGE; 

—  —  Modified  Taylor  Tangent  functions 

function  Mod_Tan_D_8term  (Input  s  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_8term(Input))  / 
Tan_Ratio(Cos~D_8term(Input) ) ; 
end  Mod  Tan  D  8 term; 
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pragma  PAGE; 

function  Mod_Tan_D_7term  (Input  :  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_7term(Input))  / 
Tan_Ratio(Cos_D_7term(Input)) ; 
end  Mod_Tan_D_7term; 

pragma  PAGE; 

function  Mod_Tan_D_6term  (Input  :  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_6terra(Input))  / 
Tan~Ratio(Cos_D_6term(Ir.put) ) ; 
end  Mod_Tan_D_6term; 

pragma  PAGE; 

function  Mod_Tan_D_5term  (Input  :  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_5term(Input))  / 
Tan_Ratio(Cos_D_5term( Input)) ; 
end  Mod_Tan_D_5term; 

pragma  PAGE; 

function  Mod_Tan_D_4term  (Input  j  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Sin_D_4term(Input))  / 
Tan_Ratio(Cos_D~4term(Input) ) ; 
end  Mod_Tan_D_4term; 

end  Taylor_Degree_Operations; 


i 
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separate  (Polynomials. Taylor_Series) 
package  body  Tayloz_Natural_Log  is 


Nat_Log_Cl 

Nat_Log_C3 

Nat_Log_C5 

Nat~Log_C7 

Nat_Log~C9 

Nat_Log_Cll 

Nat_Log_C13 

Nat_Log_C15 


constant  :  =  2.0; 
constant  :=  0.66666_6666; 
constant  :=  0.4; 
constant  :=*  0.28574_1428; 
constant  :=  0.22222~2222; 
constant  :=  0.1818l”8182; 
constant  ;=  0.15384~6153; 
constant  :=  0.13333~3333; 


pragma  PAGE; 

function  Nat_Log_8term  (  Input  :  Inputs  )  return  Outputs  is 


Inter_Result 

Result 

Mod_Input 

Mod_Squared 


:  Inputs; 

:  Outputs; 
:  Inputs; 

:  Inputs; 
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begin 

Mod_Input  :=  (Input  -  1.0)/(Input  +  1.0); 

Hod_Squared  :=*  Mod  Input  *  ModJCnput; 

Inter_Result  s*  (T( ( ( (Nat_Log~C15  *  Mod_Squared  + 

Nat~Log“Cl3)  *  Mod_Squared  + 

Nat_Log~Cll)  *  Mod_Squared  + 

Nat~Log~C9)  *  Mod_Squared  + 

Nat_Log~C7)  *  Mod_Squared  + 

Nat_Log”C5)  *  Mod~Squared  + 

NatLog  C3)  *  Kod~Squared ; 

Result  :=  (Inter_Result  *  Modjfnput)  +  (ModJEnput  *  Nat_Log_Cl) ; 

return  Result; 
end  Nat_Log_8term; 


pragma  PAGE; 

function  Nat_Log_7term  (  Input  :  Inputs  )  return  Outputs  is 


Inter_Result 

Result 

Mod_Input 

Mod_Squared 


:  Inputs; 

:  Outputs; 
:  Inputs; 

:  Inputs; 


4 
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begin 

Mod_Input  :s  (Input  -  1.0)/(Input  +  1.0); 

Mod_Squared  :=  Mod  Input  *  ModJEnput; 

Inter_Result  :=  (^(((Nat_Log_Cl3  *  Mod_Squared  + 

Nat_Log~Cll)  *  ModJSquared  + 

Nat~Log~C9)  *  Mod”Squared  + 

Nat_Log~C7)  *  Mod”Squared  + 

Nat_Log_C5)  *  ModJSquared  + 

Nat_Log_C3)  *  Mod~Squared; 

Result  :=  (Inter_Result  *  Mod_Input)  +  (Mod_Input  *  Nat_Log_Cl); 
return  Result; 
end  Nat_Log_7term; 

pragma  PAGE; 

function  Nat_Log_6term  (  Input  s  Inputs  )  return  Outputs  is 


1 
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Inter_Result 
Result 
Mod_Input 
Mod  Squared 


Inputs; 

Outputs; 

Inputs; 

Inputs; 


begin 

Mod_Input  :=  (Input  -  1.0)/(Input  +  1.0); 
Mod_Squared  :=  Mod_Input  *  Mod_Input; 

Inter_Result  :=  ((((Nat_Log_Cll  *  Mod_Squared  + 

Nat_Log_C9)  *  Mod_Squared  + 
Nat_Log_C7)  *  Mod_Squared  + 
Nat_Log_C5)  *  Mod_Squared  + 
Nat_Log  C3)  *  Mod_Squared; 

Result  :=  (Inter_Result  *  MocI_Input)  +  (Mod_Input 
return  Result; 
end  Nat  Log  6term; 


*  Nat  Log  Cl); 


J 


pragna  PAGE; 

function  Nat_Log_5term  (  Input  :  Inputs  )  return  Outputs  is 


Inter_Result 
Result 
Mod_Input 
Mod  Squared 


Inputs; 

Outputs; 

Inputs; 

Inputs; 


begin 

Modlnput  :=  (Input  -  1.0)/(Input  +  1.0); 

ModSquared  ;»  Mod  Input  *  Modlnput; 

InterResult  :»  (^(Nat_Log_C9  *  ModSquared  + 

Nat_Log_C7)  *  ModSquared  + 

Nat~Log_C5)  *  Mod_Squared  + 

Nat_Log-C3)  *  Mod_Squared; 

Result  :»  (InterResult-*  Mod_Input)  +  (Mod_Input  *  Nat_Log_Cl); 
return  Result; 
end  Nat  Log  Sterm; 


pragaa  PAGE; 

function  Nat_Log_4term  (  Input  :  Inputs  )  return  Outputs  is 


InterJResult 
Result 
Mod_Input 
Mod  Squared 


Inputs; 

Outputs; 

Inputs; 

Inputs; 


begin 

Mod_Input  (Input  -  1.0)/(Input  +  1.0); 

Mod_Squared  :*  Mod_Input  *  Mod_Input; 

Inter_Result  :*  ((Nat_Log_C7  *  Mod_Squared  + 

Nat_Log_C5)  *  Mod_Squared  + 

Nat_Log_C3)  *  Mod_Squared; 

Result  :=  (Inter_Result  *  Mod_Input)  +  (Mod_Input  *  Nat_Log_Cl); 
return  Result; 
end  Nat  Log  4term; 


end  Taylor_Natural_Log; 


iw 
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separate  (Polynomials. Taylor_Series) 
package  body  Taylor_Log_Base_N  is 


package  Local_Natural_Log  is  new  Taylor_Natural_Log(  Inputs  =>  Inputs, 

Outputs  =>  Outputs); 


package  body  Log_Base_N_8term  is 

0ne_0ver_Base_Log  :  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_8term(  Inputs(Base_N)  ); 

function  Log_N_8term  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Lcg.Nat_Log_8term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_8term; 

end  Log_Base_N_8term; 

package  body  Log_Base_N_7term  is 

0ne_0ver_Base_Log  :  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_7term(  Inputs(Base_N)  ); 


function  Log_N_7term  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_7term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_7term; 

end  Log_Base_N_7term; 

package  body  Log_Base_N_6term  is 

0ne_0ver_Base_Log  s  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_6term(  Inputs (Base_N)  ); 

function  Log_N_6term  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_6terra(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_6term; 

end  Log_Base_N_6term; 

package  body  Log_Base_N_5term  is 

0ne_0ver_Base_Log  :  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log_5term(  Inputs(Base_N)  ); 

function  Log_N_5term  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_5term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_5term; 

end  Log_Base_N_5term; 

package  body  Log_Base_N_4term  is 
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Local_Natural_Log.NatJLog_4term(  Inputs(Base_N)  ); 

function  Log_N_4term  (  Input  s  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log_4term(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N_4term; 

end  Log_Base_N_4term; 

end  Taylor_Log_Base_N ; 
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separate  (Polynomials) 

package  body  General_Polynomial  is 

function  Polynomial  (Input  :  Inputs)  return  Results  is 
Result  :  Results; 
begin 

Result  :=  0.0; 

for  INDEX  in  Table_Dimension 
loop 

Result  :=  Result  + 

Polynomial_Definition(  INDEX  ) .Coefficient  * 

(Input  **  Polynomial_Definition(  INDEX  ).Pover_0f_X); 

end  loop; 
return  Result; 
end  Polynomial; 

end  General  Polynomial; 


! 
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separate  (Polynomials) 
package  body  System_Functions  is 

package  body  Radian_Operations  is  separate; 

package  body  Semicircle_Operations  is  separate; 

package  body  Degree_Operations  is  separate; 

package  body  Square_Root  is  separate; 

package  body  Base_10_Logari thm  is  separate; 

package  body  Base_N_Logari thm  is  separate; 

end  System_Functions; 
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separate  (Polynomials. System_Functions) 
package  body  Radian_Operations  is 


—  —  instantiated  packages- 


package  Radian_Math_Lib  is  new  Math_Lib  (Real  =>  Radians); 
package  M_Lib  renaaes  Radian_Math  Lib; 


—  — renamed  functions  within  Local  Math  Lib 


function  Ada_Sin  (Input  :  Radians)  return  Radians  renaaes  M_Lib.Sin; 

function  Ada_Cos  (Input  :  Radians)  return  Radians  renaaes  M_Lib.Cos; 

function  Ada_Tan  (Input  :  Radians)  return  Radians  renaaes  M_Lib.Tan; 

function  Ada_Arcsin 

(Input  :  Radians)  return  Radians  renames  M_Lib.Asin; 
function  Ada_Arccos 

(Input  :  Radians)  return  Radians  renaaes  M_Lib.Acos; 
function  Ada  Arc tan 

(Input  :  Radians)  return  Radians  renaaes  M  Lib.Atan; 


pragma  PAGE; 

function  Sin  (Input  :  Radians)  return  SinCosRatio  is 
begin 

return  Sin_Cos_Ratio(Ada_Sin(Input)) ; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
end  Sin; 
pragma  PAGE; 

function  Cos  (Input  :  Radians)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Cos(Input)) ; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
end  Cos; 
pragma  PAGE; 

function  Tan  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Ada_Tan(Input)); 
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exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
when  M~Lib.Floovemat  =>  raise  Overflow; 

end  Tan; 

pragaa  PAGE; 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
begin 

return  Ada_Arcsin(Radians(Input)); 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
when  M_Lib.Invargmat  *>  raise  Invalid_Argument; 

end  Arcsin; 

pragma  PAGE; 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Radians  ,<s 
begin 

return  Ada_Arccos(Radians(Input)); 
exception 

when  H_Lib.Roprand  «>  raise  InvalidOperand ; 
when  M_Lib.Invargmat  »>  raise  Invalid_Argument ; 

end  Arccos; 

pragma  PAGE; 

function  Arctan  (Input  :  Tan_Ratio)  return  Radians  is 
begin 

return  Ada_Arctan(Radians(Input)); 
exception 

vhen  M_Lib.Roprand  =>  raise  Invalid_Operand; 
end  Arctan; 


er,d  Radian_Operations; 
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separate  ( Polynomials . Sys t em_Func t ions ) 
package  body  Semicirclejlperations  is 


—  — instantiated  packages- 


package  Semicircle_Hath_Lib  is  new  Math_Lib  (Real  =>  Scalars); 
package  H_Lib  renames  Semicircle  Math_Lib; 


—  — renamed  functions  within  Local  Math  Lib 


function  Ada_Sin  (Input  :  Scalars)  return  Scalars  renaaes  M_Lib.Sin; 

function  Ada_Cos  (Input  :  Scalars)  return  Scalars  renaaes  H_Lib.Cos; 

function  Ada_Tan  (Input  :  Scalars)  return  Scalars  renaaes  W~Lib.Tan; 

function  Ada_Arcsin 

(Input  :  Scalars)  return  Scalars  renaaes  M_Lib.Asin; 
function  Ada_Arccos 

(Input  :  Scalars)  return  Scalars  renaaes  M_Lib.Acos; 
function  Ada_Arctan 

(Input  :  Scalars)  return  Scalars  renaaes  M  Lib.Atan; 


—  —  local  declarations 


OneOverPi  :  constant  Scalars  :*  1.0  /  Pi; 
pragaa  PAGE; 

function  Sin  (Input  :  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Sin(Input*Pi)); 
exception 

vhen  M_Lib.Roprand  =>  raise  Invalid_Operand; 
end  Sin; 
pragaa  PAGE; 

function  Cos  (Input  ;  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ra t i o ( Ada_Cos (Input *Pi)); 
exception 

vhen  M_Lib.Roprand  =>  raise  Invalid_Operand; 
end  Cos; 
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pragma  PAGE; 

function  Tan  (Input  :  Semicircles)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Ada_Tan(Input*Pi)) ; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
when  M_Lib.Floovemat  =>  raise  Overflow; 

end  Tan; 

pragma  PAGE; 

function  Arcsin  (Input  s  Sin_Cos_Ratio)  return  Semicircles  is 
begin 

return  Ada_Arcsin(Scalars(Input))  *  0ne_0ver_Pi; 
exception 

when  MLib.Roprand  «>  raise  Invalid_Operand ; 
when  HLib.Invargmat  ->  raise  Invalid_Arguaent; 

end  Arcsin; 

pragma  PAGE; 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 
begin 

return  Ada_Arccos(Scalars(Input))  *  0ne_0ver_Pi; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
when  M_Lib.Invargmat  =*>  raise  Invalid_Argument; 

end  Arccos; 

pragma  PAGE; 

function  Arctan  (Input  :  Tan_Ratio)  return  Semicircles  is 
begin 

return  Ada_Arc tan ( Scalars ( Input))  *  0ne_0ver_Pi; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
end  Arctan; 

end  Semicircle  Operations; 
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separate  (Polynomials. System_Functions) 
package  body  Degree_Operaticns  is 


—  —  instantiated  package 


package  Degree_Math_Lib  is  new  Hath_Lib  (Real  =>  Degrees); 
package  H_Lib  renaaes  Degree_Math_Lib; 


—  —  renamed  functions  within  Degree  Math  Lib 


function  Ada_Sin  (Input  :  Degrees) 

return  Degrees  renaaes  HLib.Sind; 
function  Ada_Cos  (Input  :  Degrees) 

return  Degrees  renaaes  M_Lib.Cosd; 
function  Ada_Tan  (Input  :  Degrees) 

return  Degrees  renaaes  M_Lib.Tand; 
function  Ada_Arcsin  (Input  :  Degrees) 

return  Degrees  renaaes  M_Lib.Asind; 
function  Ada_Arccos  (Input  :  Degrees) 

return  Degrees  renaaes  K_Lib.Acosd; 
function  Ada_Arctan  (Input  :  Degrees) 

return  Degrees  renaaes  H_Lib.Atand; 

pragaa  PAGE; 

function  Sin  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Sin(Input)) ; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
when  M~Lib.Floundmat  =*>  raise  Underflow; 

end  Sin; 

pragaa  PAGE; 

function  Cos  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_Cos_Ratio(Ada_Cos(Input)) ; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand ; 
when  M_Lib.Floundmat  =■>  raise  Underflow; 

end  Cos; 

pragaa  PAGE; 
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function  Tan  (Input  :  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_Ratio(Ada_Tan(Input)) ; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
when  M_Lib.Floovemat  =>  raise  Overflow; 

end  Tan; 

pragma  PAGE; 

function  Arcsin  (Input  s  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  Ada_Arcsin(Degrees(Input)) ; 
exception 

when  M_Lib.Roprand  =•>  raise  Invalid_Operand; 
when  M~Lib.Invargmat  »>  raise  Invalid_Argument ; 

end  Arcsin; 

pragma  PAGE; 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  Ada_Arccos(Degrees(Input)) ; 
exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
when  M_Lib.Invargmat  =>  raise  Invalid~Argument ; 

end  Arccos; 

pragma  PAGE; 

function  Arctan  (Input  :  Tan_Ratio)  return  Degrees  is 
begin 

return  Ada_Arctan(Degrees(Input)) ; 
exception 

when  MJLib.Roprand  =>  raise  Invalid_Operand; 
end  Arctan; 


end  Degree_Operations; 
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R 


i 


separate  (Polynomials. System_Functions) 
package  body  Square_Root  is 

—  — instantiated  pcckage- 

package  New_Math_Lib  is  new  Math_Lib  (Real  =>  Inputs); 
package  M_Lib  renames  New_Math_Lib; 

—  — functions  used  in  this  package- 

function  Ada_Sqrt  (Input  :  Inputs)  return  Inputs  renames  M_Lib.Sqrt; 
pragma  PAGE; 

function  Sqrt  (Input  :  Inputs)  return  Outputs  is 
begin 

return  Outputs(Ada_Sqrt(Input)); 
exception 

when  M_Lib.Roprand  *>  raise  InvalidOperand; 
when  M~Lib.Squrooneg  *>  raise  Square_Root_Negative; 

end  Sqrt; 

end  Square_Root; 


urixvAvjnunLxiL*.  jj.wuailm  m  a  '  i vkwska m xa ha  an  *jounumifflruNtt>rkjrk»fVTni  xvwv  hu  kv  kv-wit-kv 
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separate  (Polynomials. System  Functions) 
package  body  Base_10_Logari tKm  is 


—  — instantiated  package- 


package  New_Hath_Lib  is  new  Math_Lib  (Real  =>  Inputs); 
package  M_Lib  renames  New_Math_Lib; 

—  — functions  used  in  this  package- 


function  Ada_LoglO  (Input  :  Inputs)  return  Inputs  renames  M_Lib.LoglO; 
pragma  PAGE; 

function  Log_10  (Input  :  Inputs)  return  Outputs  is 
begin 

return  Outputs(Ada_LoglO(Input)); 
exception 

vhen  MLib.Roprand  *>  raise  Invalid_Operand ; 
when  M~Lib.Logzerneg  =»>  raise  Log  Zero  Negative ; 

end  Log_10; 

end  Base_10_Logarithm; 


i 


\ 


\ 

\ 
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separate  ( Polynomials . Sys t em_Func t i ons ) 
package  body  Base_N_Logari thm  is 

—  —  instantiated  package- 

package  New  Math_Lib  is  new  MathJLib  (Real  =>  Inputs)} 
package  M_Lib  renames  New_Math_Lib; 

—  — local  variables- 

0ne_0ver_Logl0_0f_Base_N  :  Inputs; 

—  —  functions  used  in  this  package- 

function  Ada_LoglO  (Input  :  Inputs)  return  Inputs  renames  MJLib.LoglO; 
pragma  PAGE; 

function  Log_N  (Input  :  Inputs)  return  Outputs  is 

—  — declaration  section 
Logl0_0f_Input  j  Inputs; 

—  —  begin  function  Log_N 
begin 

LoglO_Of_Input  :=  Ada_LoglO(Input); 

return  Logl0_0f_Input  *  0ne_0ver_Logl0_0f_Base_N; 

exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand ; 
when  M_Lib.Logzerr.vag  =>  raise  Log_Zero_Negative; 

end  Log_N; 

pragma  PAGE; 

—  —  begin  package  body  Base _N  Logarithm 

begin 

0ne_0ver_Logl0_0f_Base_N  :=  1.0  /  Ada_LoglO(Inputs(Base_N)); 
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exception 

when  M_Lib.Roprand  =>  raise  Invalid_Operand; 
end  Base_N_Logarithm; 
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separate  (Polynomials) 

package  body  Continued_Fractions  is 

package  body  Continued_Kadian_Operations  is  separate; 


end  Continued  Fractions; 
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separate  ( Polynomials . Con t inued_Frac t ions ) 
package  body  Continued_Radian_Operations  is 

—  —  Tangent  functions 


function  Tan_R  (Input  :  Radians; 

Term_Count  :  POSITIVE  :=Default_Term_Count  ) 

return  Tan  Ratio  is 


Input_Squared 

Inter_Result 

Mod_Term 

Result 


:  Tan_Ratio; 
:  Tan_Ratio; 
:  INTEGER; 

:  Tan  Ratio; 


begin 

Hod_Ter»  :*  2  *  Term_Count  -  1; 

Input_Squared  :«  Input  *  Input; 

Inter_Result  :»  Input_Squared; 

Divide: 

loop 

InterResult  :-  Input_Squared/(Tan_Ratio(Hod_Term)  -  Inter_Result); 
Hod_Tern  :»  Mod_Texn  -  2; 
exit  when  HodJTern  <■  1; 
end  loop  Divide; 

Result  :«  TanRatio(Input)  /  (1.0  -  Inter  Result); 
return  Result; 
end  Tan_R; 


—  —  Arctangent  Junctions 

function  Arctan_R  (Input  :  Tan  Ratio; 

TernCount  :  POSITIVE  :■  De£ault_Tem_Count  ) 

"return  Radians  is 


COUNT 

Input_Squared 

InterResult 

ModJTern 

Result 


POSITIVE  :«  Term_Count; 
Tan_Ratio; 

Tan_Ratio; 

INTEGER; 

Radians; 


begin 

HodJTern  :»  2  *  Tera_Count  -  1; 

InputSquared  Input  *  Input; 

Inter_Result  :*  Input_Squared; 

Divide: 

loop 

Inter_Result  :«  Input_Squared  / 

(Tan  Ratio(Hod  Tern)  + 
Tan~Ratio( COUNT  *  COUNT)  * 
Inter_Result); 

COUNT  :*  COUNT  -  1; 

Mod_Term  :»  Mod_Term  -  2; 
exit  when  Hoa_Term  <»  1; 
end  loop  Divide;- 

Result  :=  Radians(Input  /  (1.0  +  Inter_Result)); 
return  Result; 
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end  Arctan_R; 

end  Continued_Radian_Operations; 
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separate  (Polynomials) 
package  body  Cody_Vaite  is 

package  body  Cody_Natural_Log  is  separate; 

package  body  Cody_Log_Base_N  is  separate; 


end  Cody  Waite; 
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separate  ( Polynomials . Cody_Wai te) 
package  body  Cody_Natural_Log  is 


CO  :  constant  Inputs  :=  0.70710_67811_86547_52440;  —  SQRT(0.5) 

Cl  :  constant  Inputs  :=  8_#0.543_#; 

C2  :  constant  Inputs  :=  -  0700021_21944_40054_69058_2767; 


—  — used  in  R  function 

AO  :  constant  Inputs  :=  - 

A1  :  constant  Inputs  :  = 

A2  :  constant  Inputs  :=  - 

BO  :  constant  Inputs  :=  - 

Bl  :  constant  Inputs  :« 

B2  :  constant  Inputs  :=  - 

B3  :  constant  Inputs  := 

function  Nat_Log  (Input  : 


64.12494  34237  45581  147; 

16 . 38394_35630_21534  222; 
0.78956  11288  74912~57267; 
769.49932_1084S_48797  77; 
312.03222  09192  45328“44; 
35.66797  77390~34646  171; 

1 . 0000 J50000 JJOOOO JJ000 ; 

Inputs)  return  Outputs  is 


F 

Inputs; 

Inter  Result 

Inputs; 

N 

INTEGER 

Result 

Outputs 

Sign 

Inputs; 

Xn 

Inputs; 

Y 

Inputs; 

Z 

Inputs; 

Zden 

Inputs; 

Znum 

Inputs; 

function  R(  Z  :  Inputs  )  return  Inputs  is 
V  :  Inputs  s*  Z  *  Z; 
begin 

return  Z  +  Z  *  tf  *  (A0  +  (A1  +  A2  *  V)  *  W)  / 

(B0  +  (Bl  +  (B2  +  W)  *  V)  *  V); 

end  R; 

procedure  Defloat(  Input  :  Inputs; 

Sign  :  out  Inputs; 
MANTISSA  :  out  Inputs; 
Exponent  :  out  INTEGER)  is 

XNorm  :  Inputs  j»  Input; 

N  :  INTEGER  ;«  0; 

begin 

Sign  s«  1.0; 
if  X_Norm  a  0.0  then 
Exponent  :»  0; 

MANTISSA  :=  0.0; 
return; 

elsif  X_Norm  <0.0  then 
X  Norm  :»  -  X_Norm; 

Sign  s*  -1.0; 
end  if; 

if  X  Norm  >*  1.0  then 


—  reduce  to  0.5  ..  1.0 
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Coarsels 

while  X_Norm  >=  1024.0  loop  —  coarse  reduction 
N  :=  N  +  10; 

X_Norm  :=  X_Norm  *  0.00097_65625;  —  exact  on  binary  machine 

end  loop  Coarsel; 

Finel: 

while  X_Norm  >=  1.0  loop  —  fine  reduction 
N  :=  N  +  1; 

X  Norm  :  =  X_Norm  *0.5;  —  exact  on  binary  machine 

end  loop  Finel; 

else 

Coarse2: 

while  X_Norm  <  0.00097_65625  loop  —  coarse  reduction 
N  ;=  N  -  10; 

X  Norm  :=  X_Norm  *  1024.0;  —  exact  on  binary  machine 

end  loop  Coarse2; 

Fine2: 

while  X_Norm  <  0.5  loop  —  jine  reduction 

N  :=  N  -  1; 

X  Norm  :=  X_Norm  *  2.0;  —  exact  on  binary  machine 

end  loop  Fine2; 
end  if; 

Exponent  :=■  N; 

MANTISSA  X_Norm; 
end  Defloat; 

begin 

Defloat (  Input,  Sign,  F,  N  ); 

Znum  tm  F  -  0.5; 
if  F  >  CO  then 

Znum  :=■  Znum  -  0.5; 

Zden  :»  F  *  0.5  +  0.5; 
else 

N  :=  N  -  1; 

Zden  :*  Znum  *  0.5  +  0.5; 
end  if; 

Z  :  =  Znum  /  Zden;  ' 

if  N  =  0  then 

InterJResult  :=  R(  Z  ); 
else 

Xn  :>  Inputs(N); 

Inter_Result  (Xn  *  C2  +  R(  Z  ))  +  Xn  *  Cl; 
end  if; 

Result  :=  0utputs(Inter_Result); 
return  Result; 
end  Nat_Log; 

end  Cody_Natural_Log; 
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separate  ( Polynomials • Cody_Vai te) 
package  body  Cody_Log_Base_N  is 

package  Local_Natural_Log  is  new  Cody_Natural_Log{  Inputs  =>  Inputs, 

Outputs  =>  Outputs); 


package  body  Log_Base_N  is 

0ne_0ver_Base_Log  :  constant  Outputs  :=  1.0  / 

Local_Natural_Log.Nat_Log(  Inputs(Base_N)  ); 

function  Log_N  (  Input  :  Inputs  )  return  Outputs  is 
begin 

return  Local_Natural_Log.Nat_Log(  Input  )  *  0ne_0ver_Base_Log; 
end  Log_N; 

end  Log_Base_N; 

end  Cody_Log_Base_N; 
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separate  (Polynomials) 

package  body  Reduction_Operations  is 

function  Sine_Reduction(  Input  :  Inputs  ) 
Result  "  :  Inputs; 

begin 

if  Input  >  Quarter_Cycle  then 
Result  :=  Half_Cycle  -  Input; 
elsif  Input  <  -  Quarter  Cycle  then 
Result  :*  -  Half_CycIe  -  Input; 
else 

Result  :  =  Input; 
end  if; 

return  Result; 
end  Sine_Reduction; 

function  Cosine_Reduction(  Input  :  Inputs 
Result  :  Inputs; 
begin 

return  abs(  Input  ); 
end  Cosine_Reduction; 

end  Reduction  Operations; 


return  Inputs  is 


)  return  Inputs  is 
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# 


(This  page  left  intentionally  blank. ) 
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3. 3. 6. 9  QUATERNION_OPERATIONS  (PACKAGE  BODY)  TLCSC  (CATALOG  #P127-0) 

This  part,  which  is  designed  as  an  Ada  package,  contains  bodies  for  for  all 
CAHP  parts  which  can  be  used  on  quaternions.  A  quaternion  represents  the 
orientation  of  frame  xyz  to  frame  XYZ.  This  part  applies  to  missile 
navigation. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 9.1  REQUIREMENTS  ALLOCATION 
N/A 

3. 3. 6. 9. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 9. 3  INPUT/OUTPUT 
None. 

3. 3. 6. 9. 4  LOCAL  DATA 
None. 

3. 3. 6. 9. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 9. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
package  body  Quaternion  Operations  is 


function  Quaternion_Computed_From  Euler_Angles 

(Euler_AngXes  :  Euler_Angle_Vectors) 
return**Quaternion_Vectors  is~separate; 

function  Normalized_Quaternion  (Quaternion  :  Qua ternion_Vec tors) 

return  Quaternion_Vectors  is  separate; 


end  Quaternion  Operations; 
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3. 3. 6. 9. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 9. 8  LIMITATIONS 
None. 

3. 3. 6. 9. 9  LLCSC  DESIGN 
None. 


3.3.6.9.10  UNIT  DESIGN 

3.3.6.9.10.1  QUATERNION_COMPUTED_FROM_EULER_ANGLES  (FUNCTION  BODY)  UNIT  DESIGN 
(CATALOG  #P129-0) 

This  part  computes  the  unit  quaternion,  Q,  that  represents  the  orientation  of 
frame  xyz  with  respect  to  XYZ  (i.e.  Q  rotates  XYZ  into  xyz)  given  the  Euler 
angles  relating  xyz  to  XYZ. 


3.3.6.9.10.1.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.9.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.9.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part 
(as  defined  in  the  specification  header): 
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|  Name 


|  Type  |  Description 


Euler  Angle 
Indices 


Angles 


Euler_Angle 

Vectors 


discrete 

type 


Data  type  representing  the  index  to  the 
vector  Euler_Angle_Vectors  which  has 
values  such  as  Psi,  Theta,  and  Phi. 


floating 

point 

type 


Data  type  for  the  elements  of  the  Euler 
angle  vector. 


array 


Data  type  representing  the  Euler  angles. 


Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this  part 
(as  defined  in  the  specification  header): 


|  Name 

Type 

Value 

Description  | 

Psi 

Euler 

Angle 

Indices 

'FIRST 

An  index  that  indexes 

"Euler  Angles"  to  extract  the 
first  Suler  angle  rotation 
that  rotates  XYZ  into  X'Y'Z' 
by  rotating  XYZ  thru  the  angle 
psi  about  the  Z  axis. 

Theta 

Euler 

Angle 

_Indices 

'SUCC(psi) 

An  index  that  indexes 

"EulerAngles"  to  extract  the 
second  Euler  angle  rotation 
that  rotates  X'Y'Z'  into 
X"Y"Z"  by  rotating  X'Y'Z' 
thru  the  angle  theta  about 
the  Y'  axis. 

Phi 

Euler 

_Angle 

JCndices 

'LAST 

An  index  that  indexes 

"Euler  Angles”  to  extract  the 
third  Euler  angle  rotation 
that  rotates  X"Y"Z" 
into  xyz  by  rotating  X"Y"Z" 
thru  the  angle  phi  about  the 

X"  axis. 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

1  Type 

|  Description  | 

|Sin  Cos 

1 

|  procedure 

1 

|  Procedure  returning  the  sine  and  cosine  of  an  euler| 
j  angle  (of  type  "Angles")  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode  |  Description  | 

|  Euler  Angles 

i 

1 

|  Euler 
j  _Angle 
j  _Vectors 

|  In  |  This  value  is  a  vector  representing  the  | 
j  j  euler  angles. 

1  1  1 

3.3.6.9.10.1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

Description  | 

Quaternion 

Quaternion 

^Vectors 

N.A. 

This  1X4  array  contains  the 
quaternion  that  will  be 
computed  and  returned. 

Cos_Psi_Div_2 

Sin_Cos 

_Ratio 

N.A. 

An  object  for  holding  the  value 
cosine(psi)/2. 

Cos_The  ta_Di v_2 

Sin_Cos 

_Ratio 

N.A. 

An  object  for  holding  the  value 
cosine(theta)/2. 

Cos_Phi_Div_2 

Sin_Cos 

JRatio 

N.A. 

An  object  for  holding  the  value 
cosine(phi)/2. 

Sin_Psi_Div_2 

Sin_Cos 

_Ratio 

N.A. 

An  object  for  holding  the  value 
sin(psi)/2. 

Sin_The  ta_Di v_2 

Sin_Cos 

JRatio 

N.A. 

An  object  for  holding  the  value 
sin(theta)/2. 

Sin_Phi_Div_2 

Sin_Cos 

JRatio 

N.A. 

An  object  for  holding  the  value 
sin(phi)/2. 
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3. 3. 6.9. 10 J .5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.9.10.1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 

separate  (Quaternion_Operations) 

function  Quaternion_Computed_From  Euler_Angles 

(Euler_AngIes  :  Euler_Angle_Vectors) 
return  Quaternion  Vectors  is 


Quaternion 


Quaternion  Vectors? 


Cos_Psi_Div_2 
Cos_The  ta_Di v_2 
Cos_Phi_Div_2 
Sin_Psi_Div  2 
Sin_Theta  Div_2 
Sin  Phi  Dlv  2 


:  Sin_Cos_Ratio; 
:  Sin_Cos_Ratio; 
:  Sin_Cos_Ratio; 
:  Sin_Cos_Ratio; 
:  Sin_Cos_Ratio; 
:  Sin_Cos_Ratio; 


begin 


Sin_Cos(  Euler_Angles(Psi)  *  0.5,  Sin_Psi_Div  2,  Cos_Psi_Div  2  ); 
Sin_Cos(  EulerAngles(Theta)  *  0.5,  Sin_Theta  Dlv_2,  Cos_Theta  Dlv_2  ) 
Sin_Cos(  Euler_Angles(Phi)  *  0.5,  Sin_Phi_Dlv_2,  Cos_Phi_DTv_2  ); 

Quaternion(QO)  :=  Cos_Psi_Div_2  *  Cos_Theta_Div_2  *  Cos_Phi_Div_2 
+  Sin_Psi_Div_2  *  Sin_Theta_Div_2  *  Sin_Phi_Div_2 ; 

Quaternion(Ql)  :=  Cos_Psi_Div_2  *  Cos_Theta_Div_2  *  Sin_Phi_Div_2 
-  Sin_Psi_Div_2  *  Sin_Theta_Div_2  *  Cos _Phi_Div_2? 


Quate  :nion(Q2)  :  = 
Quaternion(Q3)  := 


Cos_Psi  Div_2  * 
+  Sin_Psi“Div_2  * 

Sin_Psi_Div_2  * 
-  Cos  Psi  Div~2  * 


Sin_Theta_Div_2 

Cos_Theta_Div_2 

Cos_The  ta_Div_2 
Sin_Theta~Div  2 


*  Cos  Phi_Div_2 

*  Sin_Phi_Div_2; 

*  Cos_Phi_Div_2 

*  Sin  Phi  Div  2? 


return  Quaternion; 

end  Quaternion_Computed_From_Euler_Angles ; 


3.3.6.9.10.1.7 


UTILIZATION  OF  OTHER  ELEMENTS 
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3.3.6.9.10.1.8  LIMITATIONS 


None. 


3.3.6.9.10.2  NORM ALI ZED_QUATERNI ON  (FUNCTION  BODY)  UNIT  DESIGN  (CATALOG  ^?130-0) 

This  function  normalizes  a  Quaternion  when  applied  repeatedly.  One  iteration 
will  not  (in  most  cases)  normalize  the  Quaternion.  The  frequency  of  execution 
is  dependent  upon  the  desired  accuracy,  the  length  of  the  time  interval  between 
updates,  and  other  application-dependent  factors.  This  part  is  usually  applied 
repeatedly  over  time. 


3.3.6.9.10.2.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.9.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.9.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS i 


The  following  table  describes 

this 

part's  formal  parameters: 

|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Quaternion 
! 

|  Quaternion | 
j  Vectors  j 

In 

|  This  value  is  a  vector  representing  a  j 
|  quaternion  vector.  j 

3.3.6.9.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 

|  Name  |  Type  |  Value  |  Description 

N.A.  |  This  object  is  used  to  store  a  temporary 
|  value. 

I 

N.A.  j  This  object  is  the  quaternion  vector  that 
j  is  computed  and  returned. 


Factor  |  Real 

I 

I 

Answer  |  Quaternion 
I  Vectors 
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3.3.6.9.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.9.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (Quaternion_Operations) 

function  Normalized_Quaternion  (Quaternion  :  Quaternion_Vectors) 

return  Quaternion_Vectors  is 

Factor  :  Real; 

Answer  :  Quaternion  Vectors; 


begin 

Factor  :=  Real(  1.5  - 


(  (Quaternion(QO)  *  Quaternion(QO)) 
+(Quaternion(Ql)  *  Quaternion(Ql)) 
+(Quaternion(Q2)  *  Quaternion(Q2)) 
+(Quaternion(Q3)  *  Quaternion(QS)) 
*  Sin_Cos_Ratio(0.5)); 


Answer(QO)  :=  Quaternion(QO)  *  Factor; 

Answer(Ql)  :*»  Quaternion(Ql)  *  Factor; 

Answer(Q2)  :=  Quaternion(Q2)  *  Factor; 

Answer(Q3)  :=  Quaternion(Q3)  *  Factor; 

return  Answer; 

end  Normalized  Quaternion; 


3.3.6.9.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subprograms  and  task  entries  required  by 
this  part  and  defined  elsewhere  in  the  parent  top  level  component: 


|  Name 

1  Type 

|  Description  | 

|  <'*» 

1 

|  function 

|  Function  multiplying  a  type  Sin_Cos_Ratic  by  a  type| 

1  Real  returning  type  Sin_Cos_Ratio.  j 

Data  types: 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined 
elsewhere  in  the  parent  top  level  component: 


I  Name 


|  Type  |  Description 


Quaternion 

_Indices 

Real 


Sin  Cos  Ratio 


Quaternion 

Vectors 


discrete  |  Data  type  representing  element  indexes  for 
type  I  the  quaternion  vector. 

I 

floating  |  Data  type  used  to  compute  a  temporary  value, 
point  j  This  value  is  actually  a  3in_Cos_Ratio; 

type  j  however,  rounding  errors  can  cause  a 

constraint  error.  The  final  quaternions 
that  are  computed  will  not  produce  a 
constraint  error  if  the  | value |  >  1. 

i 

floating  |  Data  type  of  elements  of  the  quaternion 
point  |  vector, 

type 

array  j  Data  type  representing  the  quaternions. 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined 
elsewhere  in  the  parent  top  level  component: 


|  Name  |  Type  |  Value  |  Description 


QO 


Ql 


Q2 


Q3 


Quaternion 

Indices 


' FIRST 


An  index  that  indexes 

"Quaternion"  to  extract  the 
first  quaternion  element, 
which  is  the  scalar  part  of 
a  quaternion.  < 


Quaternion 

Indices 


' SUCC(qO) 


An  index  that  indexes 

"Quaternion”  to  extract  the 
second  quaternion  element, 
which  is  the  first  component 
of  the  vector. 


Quaternion 

Indices 


'  SUCC(ql) 


An  index  that  indexes 

"Quaternion"  to  extract  the 
third  quaternion  element, 
which  is  the  second  component 
of  the  vector. 


Quaternion 

Indices 


'LAST 


An  index  that  indexes 

"Quaternion"  to  extract  the 
fourth  quaternion  element, 
which  is  the  third  component 
of  the  vector. 
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3.3.6.9.10.2.8  LIMITATIONS 
None. 

3.3.6.9.10.3  "*"  (FUNCTION  BODY)  UNIT  DESIGN  (CATALOG  #P126-0) 

This  generic  function  computes  the  product  of  two  quaternions. 

3.3.6.9.10.3.1  REQUIREMENTS  ALLOCATION 
N/A 

3.3.6.9.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.9.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

Mode  ] 

Description  | 

|  Quaternion  A 

1 

1 

1 

|  Quaternion] 
j  Vectors  j 

1  “  1 

In  | 

1 

1 

This  value  is  a  vector  representing  a  j 
quaternion  vector.  j 

i 

|  Quaternion  B 

1 

1  1 
|  Quaternion | 
j  Vectors  j 

In  | 

1 

This  value  is  a  vector  representing  a  ] 
quaternion  vector.  j 

3.3.6.9.10.3.4 

LOCAL  DATA 

Data  objects: 

The  following  table  describes 

the  data  objects  maintained  by  this  part: 

|  Name 

1  Type 

|  Value  [  Description  | 

|  Quat  C 

1 

|  Quaternion]  N.A. 

S  Vectors  j 

|  The  quaternion  that  is  computed.! 

1  1 
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3.3.6.9.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.9.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  (Quaternion_A  :  Quaternion_Vectors; 

Quaternion_B  :  Quaternion_Vectors) 
return  Quaternion_Vectors  is 

Oust  C  :  Quaternion  Vectors; 


begin 

Quat  C(QQ)  := 


Quaternion_A(QO)  *  Quaternion_B(QO) 

-  Quaternion_A(Ql)  *  Quaternion_B(Ql) 

-  Quaternion_A(Q2)  *  Quaternion_B(Q2) 

-  Quaternion  A(Q3)  *  Quaternion  B(Q3); 


Quat_C(Ql)  :=  Quaternion_A(Q2)  *  Quaternion_B(Q3) 

-  Quaternion_A(Q3)  *  Quaternion_B(Q2) 
+  Quaternion_A(QO)  *  Quaternion_B(Ql) 
+  Quaternion_A(Ql)  *  Quaternion_B(QO); 

Quat_C(Q2)  :=  Quaternion_A(Q3)  *  QuaternionB(Ql) 

-  QuaternionA(Ql)  *  Quaternion_B(Q3) 

+  Quaternion_A(Q2)  *  Quaternion_B(QO) 

+  Quaternion_A(QO)  *  Quaternion_B(Q2); 

Quat_C(Q3)  :=  Quaternion_A(Ql)  *  Quaternion_B(Q2) 

-  Quaternion_A(Q2)  *  Quaternion_B(Ql) 

+  Quaternion_A(Q3)  *  Quaternion_B(QO) 

+  Quaternion  A(Q0)  *  Quaternion_B(Q3) ; 


return  Quat_C; 
end 

3.3.6.9.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.9.10.3.8  LIMITATIONS 


None. 
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package  body  Qua ternion_Operat ions  is 


function  Quaternion_Computed_From_Euler_Angles 

(Euler_Angles  :  Euler_Angle_Vectors) 
return  Quaternion_Vectors  is  separate; 

function  Normalized_Quaternion  (Quaternion  :  Quaternion_Vectors) 

return  Quaternion_Vectors  is  separate; 


pragma  PAGE; 

function  (Quaternion_A  :  Quaternion_Vectors; 

Quaternion_B  :  Quaternion-Vectors) 
return  Quaternion_Vectors  Is 

Quat  C  :  Quaternion  Vectors; 


begin 

Quat  C(Q0) 


Quaternion_A(QO) 
Quaternion_A(Ql) 
Quaternion_A(Q2) 
Quaternion  A(Q3) 


*  Quaternion_B(QO) 

*  Quaternion_B(Ql) 

*  Quaternion_B(Q2) 

*  Quaternion  B(Q3); 


Quat  C(Q1) 


Quat  C(Q2) 


Quaternion_A(Q2) 
-  Qu?ternion_A(Q3) 
+  Quaternion_A(QQ) 
+  QuaternionA(Ql) 


*  Quaternion_B(Q3) 

*  Quaternion_B(Q2) 

*  Quaternion_B(Ql) 

*  Quaternion_B(QO); 


Quaternion_A(Q3)  * 
-  Quaternion_A(Ql)  * 
+  Quaternion_A(Q2)  * 
+  Quaternion_A(QO)  * 


Quaternion_B(Ql) 
Quaternion_B(Q3) 
Quaternion_B(QO) 
Quaternion_B(Q2) ; 


Quat  C(Q3) 


Quaternion_A(Ql) 
-  Quaternion_A(Q2) 
+  Quaternion_A(Q3) 
+  Quaternion  A(Q0) 


*  Quaternion_B(Q2) 

*  Quaternion_B(Ql) 

*  Quaternion_B(QO) 

*  Quaternion_B(Q3) ; 


return  Quat  C; 


end 

end  Quaternion_Operations; 
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separate  (Quaternion_Operations) 

function  Quaternion_Computed_From_Euler_Angles 

(Euler_Angles  :  Euler_Angle_Vectors) 
return  Quaternion  Vectors  is 


Quaternion 

Cos_Psi_Div_2 
Cos_Theta_Div_2 
Cos_Phi_Div_2 
Sin_Psi_Div  2 
Sin  Theta_Dlv_2 
Sin  Phi  Div  2 


Quaternion_Vectors 

Sin_Cos_Ratio; 

Sin_Cos_Ratio; 

Sin_Cos_Ratio; 

Sin_Cos_Ratio: 

Sin_Cos_Ratio; 

Sin  Cos  Ratio: 


begin 

Sin_Cos(  Euler_Angles(Psi)  *  0.5,  Sin_Psi_Div_2,  Cos_Psi_Div_2  ); 
Sin_Cos(  Euler_Angles (Theta)  *  0.5,  Sin_Theta_Div_2,  Cos_Theta_Div_2  ); 
Sin_Cos(  Euler_Angles(Phi)  *  0.5,  Sin_Phi_Div_2,  Cos_Phi_Div_2  ); 

Quaternion(QO)  :=  Cos  Psi_Div_2  *  Cos_Theta_Div_2  *  Cos_Phi_Div_2 
+  Sin"Psi_Div_2  *  Sin_Theta_Div_2  *  Sin_Phi_Div_2; 

Quaternion(Ql)  :=  Cos_?si_Div_2  *  Cos_Theta_Div_2  *  Sin_Phi_Div_2 

-  Sin_Psi_Div_2  *  Sin_Theta_Div_2  *  Cos_Phi_Div_2; 

Quaternion(Q2)  :=  Cos_Psi_Div_2  *  Sin_Theta_Div_2  *  Cos_Phi  Div_2 
+  Sin_Psi_Div_2  *  Cos_Theta_Div_2  *  Sir»_Phij)iv_2 ; 

Quaternion(Q3)  :=  Sin_Psi_Div_2  *  Cos_Theta_Div_2  *  Cos_Phi_Div_2 

-  Cos_Psi_Div_2  *  Sin_Theta_Div_2  *  Sin_Phi_Div_2; 

return  Quaternion; 

end  Quaternion_Computed_From_Euler_Angles ; 
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separate  (Quaternion_Operations) 

function  Normaiized_Quaternion  (Quaternion  :  Quaternion_Vectors) 

return  Quaternion  Vectors  is 


Factor  :  Real; 

Answer  :  Quaternion  Vectors; 


begin 

Factor  :=  Real(  1.5  -  (  (Quaternion(QO)  *  Quaternion(QO)) 

+(Quaternion(Ql)  *  Quaternion(Ql)) 
+(Quaternion(Q2)  *  Quaternion(Q2)) 
+(Quaternion(Q3)  *  Quaternion(Q3))  ) 
*  Sin  Cos  Ratio(0.5)); 


Answer (QO) 
Answer(Ql) 
Answer(Q2) 
Answer (Q3) 


=  Quaternion(QO)  *  Factor; 
=  Quaternion(Ql)  *  Factor; 
=  Quaternion(Q2)  *  Factor; 
=  Quaternion(Q3)  *  Factor; 


return  Answer; 


end  Normalized  Quaternion; 


CAMP  Software  Detailed  Design  Document 


Page  1728 


(This  page  left  intentionally  blank.) 


DEPARTMENT  OF  THE  AIR  FORCE 

WRIGHT  LABORATORY  (AFSC) 

EGUN  AIR  FORCE  BASE.  FLORIDA.  32542-5434 


REPLY  TO  xo„T 
,  ATTN  OF  MNOI 


Ad- 


subject  Removal  of  Distribution  Statement  and  Report-Control  Warning  Notices 


to:  Defense  Technical  Information  Center 
ATTN:  D1TC/HAR  (Mr  William  Bush) 

Bldg  5,  Cameron  Station 
Alexandria,  VA  22304-6145 

1.  The  following  technical  reports  have  been  approved  for  public  release  by 
the  local  Public  Affairs  Office  (copy  attached). 


Technical  Report  Number 

AD  Number 

( .  88-18-Vol-4 

ADB  120  251 

a.  88-I8-V0I-5 

ADB  120  252 

3  88-I8-V0I-6 

ADB  120  253 

A.  88-25-Vol-l 

ADB  120  309 

5.  88-25-Vol-2 

ADB  120  310 

( p .  88-62-Vol-l 

ADB  129  568 

1.  88-62-Vol-2 

ADB  129  569 

88-62-Vol-3 

ADB  129-570 

9-  85-93-Vol-l 

ADB  102-654 

<0.  85-93-Vol-2 

ADB  102-655 

W.  85-93-Vol-3 

ADB  102-656 

\t.  88-18-Vol-l 

ADB  120  248 

IS.  88-18-Vol-2 

ADB  120  249 

(4.  88-18-Vol-7 

ADB  120  254 

*S.  88-I8-V0I-8 

ADB  120  255 ^ 

\(e.  88-18-Vol-9 

ADB  120  256 

H.  88-18-Vol-lO 

ADB  120  257  S' 

I&.88-I8-V0I-II 

ADB  120  258 

l9.88-18-Vol-12 

ADB  120  259 

2.  If  you  have  any  questions  regarding  this  request  call  me  at  DSN  872-4620. 


1  Atch 

AFDTC/PA  Ltr,  dtd  30  Jan  92 


LYNttfS.  WARGO  Q 
Chief,  Scientific  and  Technical 
Information  Branch 


mmmn&mmmtz 

HEADQUARTER8  AJR  FORCE  DEVElJOPUENT  TEST  CENTER  (AF8C) 
EGUNAI3  FORCE  BASE.  FIORSQA  32542-6000 


attn of-  PA  (Jim  Swinson,  882-3931)  30  January  1992 

subject-.  Clearance  for  Public  Release 


TO:  WL/MNA 


The  following  technical  reports  have  been  reviewed  and  are  approved  for 
public  release:  AFATL-TR-88-18  (Volumes  1  &  2) ,  AFATL-TR- 88-18  (Volumes 
4  thru  12) ,  AFATL-TR-88-25  (Volumes  1  &  2) ,  AFATL-TR-88-62  (Volumes  1  thru  3) 
and  AFATJ>TR- 85-93  (Volumes  1  thru  3) . 


PRIBYLA,  Lt  Col, 
Chief  of  Public  Affairs 


AFDTC/PA  92-039 


